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yuan kqenig a visite Apple expo.,. 

CS is well and alive 



Je sais : certains vont supposer que cette fois 
les fruits de la passion m'ont frappe deux fois. 
Cest peut-etre vrai, mais, a mon retourd'APPLE 
expo, je suis persuade que le GS, malgre des 
debuts diffici les en France, decolle enfin. 

Les raisons de ses difficultes initiales sont 
multiples : prix sans doute trop eleve, 
delauts dans les programmes livres avec la 
machine, difficulty d'acces aux outils de 
developpement, sans oublier, si j'en crois 
divers appels de lecteurs et des informations 
de source sure, le comportement suicidaire 
de certains concessionnaires. 

Les prix viennent de baisser, 

Les programmes ant fait lobjet de revisions. II 
convient de preciser que certains des proble- 
mes rencontres par les utilisateurs ne sont pas 
en totalite imputables aux auteurs, qui etaient 
(et sont encore) tributaires des outils de source 
APPLE (systeme d'exploitation encore evolutif, 
drivers disponibies de maniere tardive). Atten- 
tion ! je ne parte aucune accusation contre 
CUPERTINO ! L'equipe qui travaille sur la 
mochine (nous avons rencontre" trois de ses 
membres) semble tellement eprise de perfec- 
tionnisme quelle remanie sans cesse ce quelle 
vient de sortir. 

Rich Williams nous a d'ailleurs apporte la ver- 
sion 3.1 du systeme d'exploitation, mais il y a 
fort a parier qu'il existero une version 3.1 + 
lorsque cette version 3,1 sera parvenue a vos 
machines. II nous a, par ailleurs, pr^sente un 
editeur d'icones, et surtout un outil de gene- 
ration de sons, tout a fait remarquables. 
Nous avons enregistre avec plaisir I'annonce 
pour 88 r de la vrate version 16 bits du 
systeme d'exploitation. 

Des nouveautes hard sont aussi a i'ordre du 
jour, mais le developpeur que je suis (ou plutot 
que j'etais encore) a promis la discretion. 
Je rappelle a ceux qui n'ont pu obtenir de leur 



fournisseur les mises a jour 1 .1 de G5. PAINT et 
2.0 de GS.WRITE qu'ils peuvent les demander 
directement a Version Soft. 

Apres avoir tire les lemons des difficultes d'acces 
aux outils de developpement, APPLE a remanie la 
presentation de ceux-ci et a confie leur diffusion a 
une nouvelle structure, d savoir : 

D.D.A. /. Development 
'lechnopole", rue Faraday 
78180 Montigny le Bretonneux 
Ul : (I) 30J5.26.62. 

J'ai rencontre de jeunes developpeurs dont 
lenthousiasme pour le GS tranchait avec le 
scepficisme affiche par certains (BORLAND par 
exemple). Ayant fait part de certains propos 
alarmistes aux representants du team GS, j'ai 
ete frappe par leur surprise et je crois pouvoir 
dire qu J ils travaillent dur pour que toute crainte 
se revele vaine. 

De son cote, J.-L. GASSEE a affirme qu'APPLE 
gagne de I argent avec le GS et que cela le con- 
duisait a penser que I'APPLE II sera encore pre- 
sent dans 10 ans, avec des modifications bien 
sur. II n'a rien voulu annoncer aux 200 person- 
nes (au moins) qui I'ecoutaient, mais nous som- 
mes tous sortis convaincus de la mise en ceuvre 
prochaine d'un systeme de communication 
entre les deux gammes APPLE. 

Enfin, et je sais que vaus n'allez pas me croire, 
le BASIC special GS existe. Je I'ai vu d I'ceuvre, 
et il sera disponible chez D.D.A. lorsque vous 
lirez ces lignes. Aux U.S.A., A.P.D.A. le vend 
au prix de 50$ et annonce d£j6 un compilateur 
pour ce BASIC. Avant de vous quitter, je tiens a 
mentionner ce qui restera mon meilleur souve- 
nir d'APPLE expo, 6 savoir le sourire d'Alexan- 
dre FERAY (18 ans), laureat, avec son longage 
Forth pour GS, du concours APPLE/Version Soft 
(que les 4 autres laureats ne m'en veuillent pas, 
ma reaction n'enlevant rien aux merites de 
leurs programmes). Yvan koenio 
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UTILITAIRE 



ProDOS 



Maurice CHAVELLI 



LE POLYGLOTTE 



Je ne suis pas un fervent adepte de la lartgue d'ori- 
gine de mon Apple cheri et, un matin de nostalgic, 
je me suis mis en tete de lui apprendre ma langue 
matemelle. J'avais pas mal avance mon projet lors- 
que je me suis aper^u que j'allais rem placer une 
contrainte linguistique par une autre alors que la 
grande qua lite de I'informatique est plutot la sou- 
plesse j J ai alors imagine un Basic ideal, modifie a 
Joisir, et qui me permette d'utillser aussi bien le 
PRINT classique que IMPRIME, MARQUE, ECRIT... 
suivant I'humeur du moment ! 
C'est dans cette optique un rien surrealiste que 
s'esf construit Le Polyglotte. Ce dernier permet de 
modifier d tout moment la syntaxe d'un mot 
reserve du Basic, sons pour autant corriger les pro- 
grammes. Mais j ai decouvert en chemin une possi- 
bilite que je n'avais pas prevue au depart. Les 
mots-cles dans un programme Basic sont represen- 
ted par des codes (Tokens) dont le premier est $80 
pour END, le second $81 pour FOR et ainsi de suite 
jusqu'a $EA pour MID$ (vous pouvez consulter utile- 
ment a ce sujet I'article de NESTOR a la page 6 de 
Tremplin Micro n°TQ). II reste done 21 codes dispo- 
nib!esde$EBa$FF ! 

En temps normal ces tokens ne sont pas utiKsables, 
mais avec Le Polygiotfe ils le deviennent, il est 
ainsi facile d'ajouter des commandes au Basic de la 
maniere la plus naturelle qui soit. 



comment f onetionne Le Polyglotte ? 



Le Basic est tout entier contenu en memoire morte, 
il n'est done pas possible de le modifier. Par contre, 
il utilise une routine situee en memoire vive pour 
lire les programmes et Je buffer d'entree en com- 
mande directe : c'est le fameux CHRGET situe en 
$B1, ce dernier etant done oriente, ou plutdt deso- 
riente, sur la routine d'analyse du Polyglotte. II est 
ainsi possible de copter et d'interpreter une ins- 
truction avant I'Applesoft. ProDos ma egolement 



donne beaucoup de soucis ! Lui oussi interprete 
tout au moyen du mode trace du Bask standard, et 
il se trouve pris au piege en essayont d'ecrire le 
"£", ce qui l envoie f inclement dons la gestion de 
sortie de ProDos en $9E2C. 

Les mots-cles du Basic sont tous situes dons une 
table qui commence en $D0DG\ En version de base, 
Le Polyglotte comprend la meme table, mais 
situee en memoire vive done modifiable. 

Les mots-cles du Basic apparaissent sur votre ecran 
dans deux cas : 

• lorsque vous entrez des instructions au clavier, 

• lorsque vous utilisez la commande LIST. 

Dans le premier cas, il peut s'agir dune commande 
directe ou de I'enregistrement d'une ligne d'un pro- 
gramme. Dans les deux cas il foot tokeniser, c'est- 
a-dire remplacer ies mots-cles par leur code. La 
routine de tokenisotion standard se situe en $0559. 
Le Polyglotte reprend cette routine mois loriente 
evidemment sur sa propre table, Dans le deuxieme 
cos, le Basic utilise la routine LIST situee en $D6A5 ; 
Le Polyglotte comporte une routine identique, 
mais orientee sur sa propre table. 



Comment utiiiser Le Polyglotte ? 



Le Polyglotte comporte une gestion complete et ne 
pose pas de probleme particulier quant a son utili- 
sation. Il convient toutefois d'etre prudent dans le 
ehoix des mots-cles que vous affectez. Si vous rem- 
placez FOR par DE, il ne faut pas ensuite remplacer 
WAIT par DELAI car les deux premieres lettres de 
ce mot seront deja eonsiderees comme un mot-cle 
et vous deboucherez sur un SYNTAX ERROR, en 
anglois lui ! Soyez prudent egolement avec vos 
noms de variables et n'oubliez pas qu'ils doivent 
respecter les mots-cles. Pour limiter l encombre- 
ment de lo table, j'oi limite la longueur des mots- 
cles a 1 carac teres, (suite page 4) 
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D'autre part, Le Polyglotte est assemble en $8A00 
mais il doit au prealable etre charge et lance en 
$4000. En effet, il doit d'abord "faire sa place" en 
decalant les buffers de ProDos vers le bas et 
ensuite se reloger* Vous pouvez done calculer que 
Le Polyglotte occupe en tout 4K de S8AO0 6 $9A00. 
Lorsque vous etes satisfait du Polyglotte que vous 
ovez constitue\ vous devez le sauver avec loption 
correspondante du menu. Par la suite, pour le 
retrouver, il vous suffira de faire un BRUN , et le 
tour sera joue, meme si vous aviez un autre Poly- 
glotte en place. Cette manoeuvre ne vous fait pas 
perdre le programme Basic en place, mais ecrase 8 
pages a partir de $4000, 

Le menu du Polyglotte s'obtient par pomme ouverte 
et le point d'interrogation actionnes en meme temps ! 



Comment ojouterdes comma ndes t 

Classiquement, il existe deux methodes pour ajou- 
ter une commande au Basic. La premiere, la plus 
courante, utilise I'Ampersand (&) et vous avez de 
tres nombreux exemples dans Tremplin Micro. La 



deuxieme, plus rarement employee, consiste a modi- 
fier CHRGET ; e'est cette methode qui a ete retenue 
par Le Polyglotte, Mais le grand avantage de ce der- 
nier reside dans I'utilisation de nouveoux tokens, ce 
qui simplifie considerablement le probleme, 
Le Polyglotte vous demande juste un nom pour 
votre commande et I'adresse de celle-ci. II est bien 
entendu que le nom est modifiable par la suite. Le 
programme correspondent doit respecter le fonc- 
tionnement de CHRGET. Le Polyglotte empile 
I'adresse $D7D1 pour le retour et place le token 
correspondant en $6. Je vous propose, dans lo di s- 
quette d'accompagnement de ce numero 17, deux 
exemples d'i (lustration, le premier est le classique 
IF THEN ELSE, le second est inspire du Pascal : e'est 
le REPEAT UNTIL- Les deux sont relogeables, les 
sources* comportent tous les renseignements 
necessaires. J'espere que ces deux exemples vous 
inspireront. Vous pouvez tres facilement adapter la 
routine SWAP parue dans Tremplin Micro n°4 ou le 
FILL de Tremplin Micro n°7, mais laissez plutot 
s'exprimer votre imagination... 

* EXEMPLE. SOURCE (un seal itchier). ■ 



Les 

conseils 
du sage 

NESTOR 



POLY.OBJET ayant ete lance par BRUN 
POLY.OBJElAUm (ne pas oublier 
I'adresse) vous I'activerez, comme le 
precise Maurice Chavelli en appuyant 
simultanement sur POMME OUVERTE et 
le POINT D'INTERROGATION. 

Un menu apparaitra alors et vous propo* 
sera ces options : 

- EDITER LES COMMA NDES ACTUELLES. 

- AJOUTER UNE COMMANDE. 

- SUPPRIMER UNE COMMANDE. 

- SAUVER LE POLY ACTUEL. 

Vous utiliserez Heche droite ou Heche gau- 
che pour effectuer votre choix. Personnel- 
lement, j'aurais prefere les deux autres fie- 
ches, plus logiques et je pense que notre 
ami YVAN KCENIG serait de mon avis. 

EDITION Pas de probleme particu- 
lier. On se promene dans 
la lists, toujours avec les fleches. Deux 
colonnes ; le premier token est celui que 
pratique votre Apple. Le second est le 
meme, sauf modification. A ce stade, 
pour modifier une commande, il suffit de 
presser la touche RETURN et de taper le 
mot (le votre] qui remplacera le mot-clef 



octuel, Ainsi, a la place du classique END 
vous pourriez rentrer FIN. Moi ( je prefere 
OUF ! Quand cest fait : RETURN, ordre 
parfaitement compris par tout Apple, 
mais auquel les IBM et compatibles prefe- 
rent ENTER. 

AJOUTER I' y ceux qui savent 
(Maurice)... et les autres. 
Cest vrai que I'emploi de I'option AJOU- 
TER tombe sous le sens... quand on soil. 
Bien ! Cest quand meme pas la mer a 
boire. Imaginons que vous puissiez instal- 
ler une routine de COPIE D'ECRAN a 
I'adresse $300... et qu'elle y soit effecti- 
vement. Pour 1'automaliser par une com- 
mande IMP, il vous suffira de taper IMP 
(evidemment) quand POL YGLO TTE vous 
le demandera puis 0300 quand il s'inquie- 
tera de I'adresse. Tout ca est enfantin. 
Pour le reste, aucun probleme particu- 
lier,., sauf que Maurice Chavelli joue 
avec les buffers de ProDOS, mais il faut 
bien s'amuser, pas vrai. 

IE SOURCE Vous le trouverez sur la 
disquette car il est bien 
trop long pour figurer dans la revue. 
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A$8A00 
LS0C13 



Si vous n'avez 
jamais saisi une 
routine en 
tangage machine, 
tapez d'abord un 
CALL - 151, puis 
shot I'apparition 
de I'asterisque 
( * ), tapez 
gentiment chaque 
ligne, sans vous 
presser. 

Attention ! 
ne tenez pas 
com pie du total 
indique en bout 
de ligne. II est 
destine aux 
heureux 
possesseurs de 
notre disquette 
SIGNATURE et 
permet de verifier 
la saisie. 

Quand vous aurez 
termine, sauvez la 
totalite de la 
routine par un 
indispensable : 

BSAVE POLY.OBJET, 
AS8A00. LSC13 



8A00: 


AD 


88 


BC 


C9 


8B 


90 


13 


A9 


10 


20 


F5 


BE 


90 


08 


A9 


OC 


3BC1 


8A10: 


20 


OC 


BE 


4C 


DO 


03 


C9 


8A 


DO 


F4 


A9 


8A 


85 


43 


A9 


00 


EAC4 


8A2Q; 


85 


42 


85 


3C 


A9 


40 


85 


3D 


A9 


FF 


85 


3E 


A9 


4F 


85 


3F 


F65A 


8A30: 


AO 


00 


20 


2C 


FE 


A9 


4C 


85 


BA 


A9 


69 


85 


BB 


A9 


8A 


85 


9728 


8A40: 


BC 


A9 


4C 


80 


Fl 


9E 


A9 


DC 


80 


F2 


9E 


A9 


3A 


8D 


F3 


9E 


A3C0 


8A50: 


A9 


EE 


8D 


C9 


9A 


A9 


8A 


8D 


CA 


9A 


60 


AE 


E2 


92 


AC 


E3 


D7BC 


8A60: 


92 


C9 


3A 


GO 


03 


4C 


BE 


00 


60 


BE 


E2 


92 


8C 


E3 


92 


BA 


B46F 


8A70: 


BC 


01 


01 


CO 


4C 


FO 


04 


CO 


IF 


FO 


30 


BC 


02 


01 


CO 


D4 


9A10 


8A80 : 


DO 


D9 


20 


61 


8A 


AA 


68 


68 


8A 


DO 


03 


4C 


3C 


D4 


A2 


FF 


5888 


8A90: 


86 


76 


90 


06 


20 


4E 


91 


4C 


05 


D8 


A6 


AF 


86 


69 


A6 


BO 


DF54 


8AA0: 


86 


6A 


20 


OC 


DA 


20 


4E 


91 


4C 


6A 


D4 


BC 


02 


01 


CO 


D8 


9AD6 


8ABG: 


DO 


A9 


C9 


BC 


DO 


03 


4C 


03 


92 


C9 


EB 


90 


9E 


AA 


68 


68 


2D0E 


8AC0 : 


8A 


E9 


EB 


OA 


A8 


A9 


D7 


48 


A9 


Dl 


48 


B9 


5A 


94 


48 


B9 


7442 


8AD0: 


59 


94 


48 


AO 


00 


El 


B8 


85 


06 


4C 


Bl 


00 


C9 


BC 


DO 


03 


HIE 


8AE0 : 


4C 


05 


92 


C9 


EB 


BO 


DA 


85 


33 


A8 


38 


4C 


F4 


9E 


20 


10 


CBC7 


8AF0: 


FD 


2C 


61 


CO 


30 


01 


60 


C9 


BF 


DO 


FB 


AD 


IF 


CO 


8D 


E4 


0A2B 


8800 : 


92 


10 


05 


A 9 


95 


20 


ED 


FD 


20 


39 


FB 


20 


58 


FC 


A9 


82 


81E2 


SB 10 : 


AO 


93 


20 


3A 


DB 


20 


33 


91 


A9 


OA 


20 


5B 


F8 


A9 


00 


85 


EFA3 


8B20 : 


24 


A9 


A2 


AO 


93 


20 


3A 


DB 


20 


FB 


DA 


A9 


C5 


AO 


93 


20 


198D 


8830 i 


3A 


DB 


20 


FB 


DA 


A9 


DE 


AO 


93 


20 


3A 


DB 


20 


FB 


DA 


A9 


8097 


8B40 i 


F9 


AO 


93 


20 


3A 


DB 


A9 


OA 


20 


5B 


FB 


20 


33 


91 


20 


IE 


88AC 


8B50: 


91 


C9 


9B 


DO 


10 


AD 


E4 


92 


10 


05 


A9 


03 


20 


95 


FE 


20 


91SC 


8860; 


58 


FC 


20 


DO 


03 


C9 


95 


DO 


17 


A5 


25 


C9 


OD 


DO 


04 


A9 


CAA9 


8B70: 


09 


85 


25 


E6 


25 


20 


27 


91 


20 


22 


FC 


20 


33 


91 


30 


CE 


F4B6 


8880: 


C9 


88 


DO 


OE 


A5 


25 


C9 


OA 


DO 


04 


A9 


OE 


85 


25 


C6 


25 


E3EC 


8890; 


DO 


E3 


C9 


8D 


FO 


06 


20 


DO 


92 


4C 


4E 


8B 


A5 


25 


C9 


OD 


9A46 


8BA0: 


DO 


03 


4C 


5A 


8F 


C9 


OC 


DO 


03 


4C 


26 


8E 


C9 


08 


DO 


03 


8657 


8BB0 : 


4C 


81 


80 


A9 


17 


85 


23 


20 


5B 


FB 


A9 


00 


85 


24 


A9 


OA 


7C3D 


8BC0 ! 


AO 


93 


20 


3A 


DB 


20 


33 


91 


20 


3F 


91 


20 


B5 


90 


20 


IE 


33DF 


8BD0: 


91 


C9 


95 


FO 


F6 


C9 


9B 


DO 


03 


4C 


08 


8B 


C9 


8D 


FO 


06 


FA37 


8BE0: 


20 


DO 


92 


4C 


CE 


88 


A9 


17 


20 


58 


FB 


A9 


00 


85 


24 


A9 


5B58 


8BF0; 


32 


AO 


93 


20 


3A 


DB 


20 


33 


91 


A9 


00 


85 


25 


20 


22 


FC 


B50F 


8C00: 


20 


33 


91 


20 


IE 


91 


C9 


95 


DO 


19 


A6 


25 


EC 


E5 


92 


FO 


0718 


SCI ; 


04 


E0 


16 


DO 


06 


20 


85 


90 


4C 


F9 


8B 


20 


27 


91 


E8 


86 


8B4B 


8C20: 


25 


DO 


DA 


C9 


88 


DO 


13 


A6 


25 


DO 


06 


20 


DO 


92 


4C 


03 


D275 


8C30: 


8C 


20 


27 


91 


CA 


86 


25 


4C 


FD 


SB 


C9 


9B 


DO 


03 


4C 


83 


7FE3 


8C40; 


8B 


C9 


8D 


DO 


E6 


20 


27 


91 


A5 


25 


48 


A9 


17 


20 


5B 


FB 


A0B7 


8C50? 


A9 


00 


85 


24 


A9 


5A 


AO 


93 


20 


3A 


DB 


20 


33 


91 


68 


20 


6B29 


8C60: 


58 


FB 


A9 


12 


85 


24 


20 


9C 


FC 


20 


7D 


90 


8A 


DO 


03 
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QUESTION 



lecfeur ds voftB rewe depots le pfsmkf 
ttomfro, j'oppfecie is ncmbre et fa quolile 
lies articles, et swtout levr caractm 
didoctiqt/e. 

Ires modeste programmm en Basic 
Applesoft vovs m 'am tire sons h sovw 
de bien des trxos etje item'efsndraipas, 
car was cormoism bien cek strr la jate 
de voir ew/w an petit programme foumer, 
mem si le resuftat est du aax AtWfes 
dkouvertes dans MMPUN MICRO pfotoi 
qv'a mes talents personnels, 

Sijems km aujoifrdltvi, c'est que j'ai 
/'intention de changer mm "wi?if Apple 
IIC pour un Apple IIGS etqvece profet me 
plonge dons des obimes de perplexite. Je 
m'expltoae ; mo configuration ottuelle 
esthsuiwnte: 

I APPLE IIC I3B KO. 
) LEGEM EXrm MARQUE APPLE 
povtes 1/4}, 

1 Mommm zenith monochrome 
m 

I MODEM UNIVtPSEl SECfRAD (AGREE 
APPLEJ. 

I LMPSIMANIE APPIE IMAGEWPffEJI I. 

\ SQUPIS, 

I JOYSJtCX APPLE. 

I CABIE PEPIJEl "CHAI MAUW (Pour 
lesjeuxencoulemj. 

Je trovoille pHrtcipolemen! sur APPLE- 
WORKS VI. 2 omsi que sur VERSION ttl et 
VERSION CMC Mes questions sont les 
suivontes : 

1 Si j'achete vn IIGS, quels sont les peri- 
pheriqves que je pcurroi conservw 
sons problime ? 

* Povrroi-je recuperer mes {nombrevx} 
fichiers Appleworks ? 

* Mei hgkiefs twmeront-ik sor un 
IIGS? 

Si je viens vous ennvyer avec ces ques- 
tions, c'est que malgre de nombreuses 
demarches oupres de different* reven- 
dews (y compris cm qui m 'ont rendu 
men llCilyoS arts) je n 'ai jamais obtenu 
de report ses precises. L'unme dit que man 
lecteur 5 pottces t/4, bien que de marque 
Apple, ne seta pas compatible; un 
second le contredit : m trotsieme me pre- 
dit des probiemes sans nom entre le IIGS 
et I'IMAGEWRIJiR I; an outre m'assvre 
que men Modem est totalement incompa- 
tible , quond a APPLE FRANCE, ifs n'ont 
jamais doigne rependre 6 mes letlres,,, 

Vaila! vous etes done man dernier 
reams, j'esptre que vous pourrsi 
m klcirer et, dans I'attenie de vous lire, 
/«? tons prie de recevait mes cocdaks 
salutations. i *. f. (PAKIS f J*J 
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GUY'HACHETTE 



REPONSE 



Voild queiques mois que je signals 6 
APPIE hs comportments XUMUX' 
de certoins de leurs revenaeurs 
agrees, mats ca ne semble pas 
%'ameTtorer. 

Je vais essayer d'ectairer votre 
lanierne : 

' Voire lecteur 5" IfC est probable- 
mem m UNIDISK beige, II est "nor- 
moiement" compatible GS, II se 
pent cependant, s'it sogit dun 
exemplaire ancien" qu'it ait 
besoin dune petite intervention 
{c'est le cos des premiers DUO- 
DISKS). Seui un essai pourrort vous 
renseigner. Si vous en avez /'occa- 
sion, il faudrott k broncher stir un 
GS et essayer ie FINDER de la dh- 
quette systems 3. 0D8 du W join 87, 
Si le lecteur vide se voit artribver 
one scone, lout va bien. Smart, 
ecrivez au SAV en preempt le 
numero de serie de voire lecteur. 

' Desole mais le modem SECJRAD 
rte hnctionne sur aucvne des listes 
de compatibilife que j'ai pu 
consulter. 

• Votre sovris sera invtilisoble mois 
le GS est livre ovec SA souris- 

• le Joystick sero utilisable. 

• le cable P&ttel Chat Mauve est 
sans abjet id. Si vous achetez one 
mite cen/rale setile, il existe un 
cable qui vous permettra d'utiliser 
votre televiseur equips dime prise 
PEftlTEL " {resuftat variant du cor- 
rect d linsupportabls selon fes 
telemeursj. 

• LIMAGEWftlTEft 1 est compatible 
avec h GS mois ne I'est peut-itre 
pas am certains fogkiels GS {lout 
est affaire de nuance}. 

• Je ne connois pas le moniteur 
ZENITH el je prefers ne rien dire 
sur ce point. 

De totttes logons, fenvoie copie de 
votre lettre etdema reponse b APPiE 
pour qu'ils puisseni, pyentueilement, 
completer ou corriger. 

Ym KdNIG. 

The 
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BORLAND 
PRESENT a 
APPLE EXPO 

A I'occosion du salon Apple 
Expo, BORLAND INTERNATIO- 
NAL q presents toute sa 
gamme de logiciels d«kJies 
Macintosh. 

Le marche" Macintosh efonl en 
pleine croissance et represen- 
lant pour le constructeur son 
deuxieme march e mondial 
apres les Etats-Unis. ii est nor- 
mol que BORLAND INTERNA- 
TIONAL, fidele a une politique 
commerciale consistent 6 pro- 
poser des produits aussi popu- 
Jaires que possible, suive 
revolution de ce secteur, 

Devont le succes rencontre par 
ses logic-els pour PC la 
societe, soucieuse d'offrir les 
memes performances aux u ti- 
ll saleurs de Macintosh, pro- 
pose done toute une gamme 
(langage eJ bureautique) spe- 
cif ique a ce type de produits. 

Pour BORLAND INTERNATIO- 
NAL, e'est egolement la 
France qui constitue son 
deuxieme mare he apres les 
Elals-Unis. 

LOGICIELS EXPOSES ; 

Turbo Pascal pour le Mac. 
Turbo Tutor pour le Woe, 
Melhodes num^nques pour le Mac. 
Database toolbox pour le Mac. 
Reflex pour le Mac 
Sidekick pour le Mac. 
Eureka, la solution pour leMoc. 



L'ASSEMBLEUR ? 

mais cest facile ! 



Commencez par : 

LE 6502 PAS A PA! 



Offrez-vous nos bouquins de routines 
(avec disquette). 

• CLINS D'OEIL AU 6502 

• ROUTINES POUR 65C02 ET 6502 

• NOUVELLES ROUTINES POUR LE 65C02 



(ouvrage que nous devons a deux lecteurs de Tremplin Micro). 



Utilisez le BULLETIN DE COMMANDE a la fin du journal 
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GU Y - H ACHfTTE 



ProDOS 



DOS 



Rafi DERYEGHIYAN 




DESCRIPTION DU PROGRAMME 



WAR est un jeu d'aventure entierement ecrit 
en Langage Machine. II comporte un veritable 
analyseur syntaxique. Toutes les explications 
sont contenues dans le programme : en voya- 
geant a travers le temps et I'espace, vous 
devrez mettre fin a une guerre quia devaste la 
surface de la terre. 

Un triple probleme se pose done a vous : 

— trouver la machine a remonter le temps, 

— en obtentr le fonctionnement, 

— decouvrir le moyen d'arreter la guerre. 

De plus, vous devez determiner si la solution 
se trouve dans le passe ou le futur... 

Comme dans tout jeu d'aventure, vous donnez 
vos ordres a I'aide d'un verbe a l'impe>atif suivi 
d'un nam, Le verbe peut etre abrege a trois let- 
tres, et le nom d quatre. 

Tapez E, 0, N, S, pour vous deplacer, INV pour 
I'inventaire, QUI pour arreter. A vous de 
decouvrir le reste du vocabulaire. 



I UTILISATION 



Le programme est compose : 

• Du fichier btnaire "TEXTES" contenant les 
codes ASCII des messages affiches a I'ecran. 

• Du fichier binaire "VECTEURS" contenant des 
adresses, 

• Enftn, du programme lui-meme : WAR. 



WAR 



Le source du programme (WAR. SOURCE et 
WAR1. SOURCE sur la disquette) a ete ecrit 
grace a I'assembleur ProCODE, J'ai ete oblige 
de le separer en deux a cause de son im- 
portance. 

Pour jouer , faites uniquement BRUN WAR. Le 
programme charge automat iquement les 
fichiers TEXTES et VECTEURS : ils doivent done 
etre sauves obligatoirement sous ces noms sur 
la disquette : 

— BSAVE WAR,A$4000 i L$1084 

— BSAVE VECTEURS, A$800.L$11 8 

— BSAVE TEXTES, A$7000,L$ I FBE 

ATTENTION : Le programme a ete con^u 
sous le systeme d'exploitation 
ProDOS. Pour le faire fonctionner sous DOS 
3.3, voici les etapes a suivre : 

— Remplacer les trois premiers codes du pro- 
gramme WAR par ; 4C E2 40. 

— BLOAD VECTEURS. 

— BLOAD TEXTES. 

— BRUN WAR. 

De plus, a chaque fois que le programme vous 
demandera si vous voulez rejouer, repondez 
non, rechargez le fichier TEXTES, puis faites 
BRUN WAR. 



LA SOLUTION... 



Je vous livre la solution pour vous prouver 
qu elle existe (et par la meme occasion que 
mon programme fonctionne !). 

PRENDS VASE, CASSE VASE, REGARDE DEBRIS, 
PRENDS PASSE, E, N, REGARDE MEU8LES, 
PRENDS COUTEAU, S, POUSSE TAPIS, (suite page 10). 



TREMPLIN MICRO 
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OUVRE TRAPPE, PASSE, VA TRAPPE, PRENDS 
ALLUMETTES, PRENDS PISTOLET, E, REGARDE 
CADRAN, POUSSE BOUTON, REGARDE 
CADRAN, TIRE LEVIER, E, S, TUE CHEVALIERS, 
PISTOLET, E, E, E, VA CHEMINEE, TOURNE CHE- 
NET, VA PORTE, PRENDS DIAMANTS, N, 0, 0, 
O, S, FOUILLE FOIN, PRENDS PELLE, POSE PIS- 
TOLET, N, O, N, O, POUSSE BOUTON, 
REGARDE CADRAN, POUSSE BOUTON, 
REGARDE CADRAN, TIRE LEVIER, E, E, DONNE 
DIAMANTS, ROBOT, PRENDS DESINTEGRA- 
TEUR, O, O, POUSSE BOUTON, REGARDE 
CADRAN, POUSSE BOUTON, REGARDE 
CADRAN, TIRE LEVIER, O, VA ECHELLE, E, E. E, 
REGARDE SOL DAT, TUE SOLDAT, DESINTEGRA- 
TEUR, POSE DES I NTEGR ATE UR, FOUILLE SOL- 
DAT, PRENDS CLEF, S, OUVRE PORTE, CLEF, 
POSE CLEF, VA PORTE, PRENDS DYNAMITE, N, 
N, O, O, O, VA TRAPPE, E, POUSSE BOUTON, 
POUSSE BOUTON, POUSSE BOUTON, POUSSE 



BOUTON, TIRE LEVIER, E, ALLUME ALLUMET- 
TES, REGARDE DYNAMITE, ALLUME MECHE, VA 
BRECHE, REGARDE CONDUIT, DEVISSE GRILLE, 
COUTEAU, VA CONDUIT, E, REGARDE PAN- 
CARTE (!) REGARDE ORDINATEUR, BRANCHE 
ORDINATEUR, ALLUME ECRAN, REGARDE 
ECRAN, 0,0,0,0, POUSSE BOUTON, POUSSE 
BOUTON, POUSSE BOUTON, TIRE LEVIER, E, E, 
S, REGARDE OFFICIER, TUE OFFICIER, COU- 
TEAU, REGARDE OFFICIER, PRENDS UNI- 
FORME, ENTERRE OFFICIER, PELLE, S, E, KRIEG, 
E, TUE GENERAL, COUTEAU. 

Le programme compte en tout 65 mots dans 
son vocabulaire. Bien entendu, j'ai essaye de 
programmer le plus de situations possibles : 
par exemple, je ne vous conseille pas de 
fouiller le soldat alors qu'il est encore vivant, 
ou de le tuer avec une autre arme que le 
desintegrateur ! Et ce n est qu'un piege 
parmi tant d'autres... ■ 



Attention ! ce 
programme est 
beaucoup trop, 
long pour etre 
publie dans la 
revue, mais 
TREMPUN MICRO 
vous I 'off re 
moyennant une 
faible 

participation : 20F. 
Utilisez 

obligatoirement 
notre bulletin de 
commande a la fin 
du journal. 

La disquette 
(ProDOS) comporte 
non seulement le 
programme, mais 
le source. Vous 
devrez par contre y 
copier ProDOS et 
BASIC. SYSTEM. 
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GUY-HACHETTE 



UTILITAIRE KffgaiWSM 



EnNTE ^pp ,e iie > ik i,gs 

rwll E et APPLEWORKS 



Cet utilitaire a pour objectif de vous permettre d'agrementer vos textes, sous 
APPLEWORKS, avec des polices de caracteres personnalises. II peut egalement 
etre employe avec tout logiciel travaillant sous PRODOS. II est utilisable sous 
DOS 3.3 en modifiant certaines lignes du programme FONTE. 



FONTE est divise en 2 parties : le CHARGEUR et 
le GtNiRATEUR. Dans le CHARGEUR comme 
dans le GENERATEUR, le choix des rubriques se 
fait tou jours avec f leches haute ou basse. 



1, 



CHARGEUR 



a. ...retoor ou sommaire 

• permei de revenir au sommaire sans telechar- 
ger, ou apres avoir charge une fonte dans 
I'imprimante (taper 2 fois sur RETOUR). 

b. charger une ancienne Fonte 

• permet de telecharger la fonte employee lors 
dune precedente utilisation de I'lmTttaire FONTE 
(allumer I'imprimante, taper sur RETOUR, ottendre 
le chargemenf , puis taper RETOUR). 



c charger une nouvelle fonte 

• permet de telecharger une fonte a partir dun 
choix effectue d'opres le catalogue des fon- 
tes disponibles (allumer I'imprimante, taper 
sur RETOUR, choisir une fonte a I'aide des fle- 
ches haute ou basse, valtder en tapant sur 
RETOUR, attendre le chargement, et taper 
sur RETOUR). 

d. supprimer une fonte 

• permet d'effacer une fonte du disque (taper sur 
RETOUR, choisir la fonte a effacer a I'aide des 
f leches haute ou basse, valider en tapant sur 
RETOUR, repondre (oui) pour confirmer), 

e. creer une nouvelle fonte 

• permet d'acceder au GENERATEUR. m<? w /?/ 



Ce logiciel comporte plusieurs volets : 

1° STARTUP (ecril en Basic) est le menu de presentation, tl vous 
propose APPLEWORKS - FONTE - MAILING - IMPRIMER 
FONTES. 

2° VOIR permet d'editer toutes les iontes disponrbles sur papier. 
3° FONTE permet de charger une fonte dans lo memoire vive de 

limprimante et oussi de creer ses propres polices de 

caracteres. 

Nota : le WAILING nest qu'une suggestion de programme. 
Vous pourrei avoir, sur la meme disquette, tous les programmes 
FONTE, plus ceux d'APPLEWORKS. Vous pourrez aussi ajouler un 
MAILING eventuel ! 

Les lignes 105 et 215 de STARTUP doivent etre modifiees pour une 

utilisation sur la disquetfe /APPLEWORKS 

ou lo ligne 280 pour rait etre reecrite de la logon suivonte : 

280 PRINT D$' VAPPLEWORKS/APLWORKS.SYSTEM ' 

TREMPUN MICRO 



II est a noter que pour le demarroge de FONTE sur la disquette 
/APPLEWORKS, il est imperatil que BASIC SYSTEM soil devant 
APLWORKS.SYSTEM sur le catalogue, 

Marc he d sulvrc : 

• Faire une copie des programmes FONTE. 

• Transferer tous les fichiers de la lace 1 d' APPLEWORKS sur cette 
nouvelle disquette, h I'oide de WOUSEDESK par exemple. 

• EHectuer le meme travail avec le MAILING (eventuel}. 

• Renommer la disquetle / FONTE en / APPLEWORKS ovec ('ins- 
truction RENAME ou avec MOUSEDESK, 

• Recapier sur la face 2 de voire nouveou disque, la face 2 
dAPPLEWORKS. 

Les fichiers de police de caracteres doivent tou jours etre sur la 
disquette ou se trouve FONTE. Certaines polices de TREMPUN 
MICRO sonl utilisobles, rnais les caracteres devront etre deco- 
les,.. sinon on aura B au lieu de A. et ainsi de suite. ■ 



2. GENERATEUR 



II est organise de la meme facon que le chargeur. 

a. utiliser une FONTE vierge 

• permet de creer une fonte a partir d une 
fonte vierge (toper RETOUR). 

b. charger une ancienne fonte 

• permet de creer une fonte a partir de la der- 
niere fonte etablie dans une utilisation prece- 
dente du logiciel (taper RETOUR). 

c. charger une nouvelle fonte 

• permet d'appeler en memoire une fonte du 
catalogue pour travoiller avec (taper 
RETOUR, choisir une fonte a I'aide des fleches 
haute ou basse, taper RETOUR). 

d- sauvegarder la fonte en memoire 

• permet de sauver sur disque la fonte en 
memoire (taper RETOUR, taper le nom desire 
- pour effacer des caracteres : utiliser fleche 
gauche ou delete taper RETOUR quand le 
nom convient). 



3 . GENERATION DES CARACTERES 



Dans les rubriques a, b, c, du generateur vous 
appelez l editeur de caracteres : 

A la question : APPEL CAR? vous pouvez repondre 
par n'importe quel caractere dont le code ASCII est 
entre 32 et 126 inclus. L'editeur vous proposera 
dans une grille le caractere dessine point par 
point. Si vous tapez RETOUR a la place d une let 
tre, vous aurez une grille vierge. Si vous tapez 
ESC(escape), vous sortirez de I'edition. 

Le curseur est maintenant sur la grille, vous pou- 
vez (re)definir votre caractere. Deplacez-vous 
avec les fleches. Pour ajouter ou supprimer un 
point de la matrice : tapez sur ESPACE. Pour sortir 
de I'edition, enfoncez la touche ESC (escape). 

A la question ; TYPE H ou h, tapez H pour utiliser la 
matrice haute et h pour la matrice basse (lettre 
avec jambage...} 

A la question : RANGE CAR? vous tapez le carac- 
tere sous lequel celui que vous avez defini doit 
etre range. Si vous tapez ESC(escape), il n'y aura 
pas de rangement ; vous sortirez alors de ( edition 
pour une sauvegarde eventuelle. 



regies sur les touches a utiliser 



(RETOUR) valide tous vos chdix. 

vous ramene tou jours a l etat precedent. 



permet davoir le catalogue des fontes 
disponibles. 

(ESPACE) sert d definir la matrice dun caractere. 



5. NOTA 



Ce logiciel fonctionne Ires bien avec les imprimantes 
DMP, fMAGEWRITER I et IL Sur les Apple fie, la carte 
80 colonnes est obligatoire, le Kit 65C02 sera aussi le 
bienvenu, moisnest pas necessaire. 

Le chargement des fontes en memoire s'effectue tou- 
jours a l adresse $4000 et 95 caracteres sont disponi- 
bles (du code ASCII 32 au code ASCII 126 inclus), lis se 
presentent sous la forme d une matrice 8X8, 

Pour faire travailler Timprimonte avec une fonte per- 
sonnel^ il faut lui envoyer la sequence E5CAPE 
(27 39] et pour revenir a la fonte norma le, c'est lo 
sequence ESCAPE $ (27 36). 

Sous APPLEWORKS, il faut definir une nouvelle imprimante : 

i menu AUTRES ACTIVITBS 
. menu DONNEE5 IMPRIMANTE : choisir AJOU- 
TER IMPRIMANTE 
menu AJOUTER IMPRIMANTE : choisir 12 et 

donner un nom 
menu CODE IMPRESSION ; definir les codes de 

rimprimante 
menu SOUUGNEMENT 

menu DEBUT SOUUGNEMENT : repondre 
ESCAPE ' ou ESCAPE ! ESCAPE ' 

menu FIN SOUUGNEMENT : repondre ESCAPE 
Sou ESCAPES ESCAPE", 

Ceci est un exemple, vous pouvez employer GRAS a lo 
place de SOUUGNEMENT. 

Dans le traitement de texte, lorsque vous voulez utili- 
ser les caracteres speciaux : tapez CONTROLE-S ; 
pour revenir aux caracteres normaux : tapez 
CONTROLE-S. II faut savoir qu'apres cheque retour 
chariot, le soulignement est annule. Au moment de 
I'impression, demandez la nouvelle imprimante, 

II faudra taper CONTROLE-G a la place de 
CONTROLE-S si vous avez parametre votre impri- 
mante sur les caracteres gras. L'utilisation de la fonte 
vierge permet d'editer un texte en occulfant tous les 
mots ecrits en caracteres personnalises. 



CREE. FONTE. FIN 

10 DS = CHR$(4) 

20 PRINT D$' CREATE FONTE.FIN.TTXT" 

30 PRINT DS' OPEN FQNTE.FIN,TTXT" 

40 PRINT D$' WRITE FONTE. FIN" 

50 PRINT VIERGE" 

60 PRINT "VIERGE 

70 PRINT D$"CLOSE" 



Tapez el lancez ce 
court programme 
pour creer 
FONTE.FIN, 
indispensable lors 
de lo premiere 
utilisation. 
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GUY-HACHETTE 



FONTE 

ROUTINES 



H STARTUP 

a voir 

a FFTV 

H FONTE 

S FONTE. CODE 



petit menu 

pour imprimer fes fontes (IW/DMP) 

qui "fabrique" FT.VIERGE 

le gros morceau 

51 octets en langage machine. 



□ STARTUP 

100 D* = CHR* (4) :B* = "RUN" 
105 PRINT D$"PR£3": PRINT DVPRE 

FIX/TM17/F0NTE" 
110 REN MENU 

115 DATA ........ SOMMA IRE.. 

D18C 

120 DATA * APPLEWORKS 

* 389F 

125 DATA « FONTE 

7AB3 

130 DATA * MAILING "" 

* 25F8 

135 DATA * Imprimer 1 es fo 

ntes * 
140 DATA 

145 1 ■ - Is RESTORE : PRINT C 

HR* (12)* HOME 
1 50 I = I + I : READ A$: IF A* < 

> THEN T*(I) = A*: GOTO 

150 B183 
155 NBE = I - 1 60E8 
160 HOME :HT = 23 
165 HTAB HT; VTA8 8: INVERSE : P 

RINT T*C0) ; : NORMAL 
170 HTAB HT: VTAB 10: FOR G = 1 

TO 34: PRINT CHR* (255) p N 

EXT 6: PRINT 
175 FOR I s 1 TO NBE 
180 VTAB 10 + I: HTAB HT: PRINT 

T*(I> 
185 NEXT I 

1 90 HTAB HT : VTAB 10 + I : FOR G 
= 1 TO 34: PRINT CHR* (255) 
;: NEXT G: PRINT 

195 I = 1 634A 

200 UTAB 10+3: HTAB HT + 1 : IN 
VERSE : PRINT MID* (T*(I),2 
,32) ; : NORMAL 9293 

205 HTAB HT: VTAB 14 ♦ NBE: PRIN 
T "Selection : FLECHE HAUT ET 
BAS" FA26 

210 HTAB HT: VTAB 15 ♦ NBE; PRIN 
T "Val idation:RET0UR CHARIOT 
";: GET R$ E322 

215 IF R* = CHR* (27) THEN PR1 



10 THEN 255 
U THEN 20 



NT D*"RUN/TM17/STARTUP" 
220 IF ASC <RS) = 13 THEN PRIN 

T ; GOTO 275 
225 IF ASC <RS) 
230 IF ASC <R*> < > 

5 

235 VTAB 10+ I : HTAB HT: PRINT 

T* <1) 
240 1=1-1 
245 IF I < 1 THEN I = NBE 
250 GOTO 200 

255 VTAB 10 + I: HTAB HT: PRINT 

T*U) 
260 1=1+1 
265 IF I > NBE THEN I = 1 
270 GOTO 200 

275 ON I GOTO 280,285,290,295 
280 PRINT D$*-APLW0RK3 . SYSTEM" 
285 PRINT D* + B* + * FONTE" 
290 GOTO 200 

295 PRINT DS + B* + "VOIR" 



a voir 



100 
105 

no 



115 
120 
125 
130 
135 

140 



145 
150 
155 

160 
165 



B* = " 
DIM C*(8 f 8) 
FOR F = 1 TO 
8:C*(D,F) = " . " : 
T F 

D* - CHR* <4) 
E* = CHR* (27) 
PRINT Df "PREFIX" 
REM 

TEXT : HOME 

: PRINT 
DIM G*<50): 
PF* ;" ,TDIR" : 

;PFS 
G - 1 

INPUT A*: INPUT A*: INPUT A* 
INPUT G*(G):G*(G) = MID* (G 
$<G) ,2, 35) 

IF G*(G) = THEN 175 
IF MID* <G*(G) ,1 ,3) = "FT." 
THEN G4<G) = MID* <G*(G>,4, 
12) :G = G + 1 



8: FOR D - 1 TO 
1 . * i NEXT D: NEX 



INPUT PFS 



: PRINT DS"PR£3" 

PRINT D*"OPEN " i 
; PRINT D*" READ " 



AB4D 

438F 
32EB 

43B7 

3286 
7A5C 
CBAA 
333D 

3286 
80 5B 
8AA8 
333D 
0BA0 
5119 
D5D8 
333D 
FA9C 



0C1A 
58DA 



E8A6 
B3A4 
CFDA 
47AC 



1CE6 



FA3D 
4048 
582F 

ABC2 
CF25 



)ED8 



TREMPLIN MICRO 
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E 


VOID (qui to q+ fin\ 
win ^suiTccTiin^ 




245 


NEXT U 




A5D7 






250 


PRINT E*; CHR* (34) 




8BFD 


1 70 


GOTO 1 55 


2D46 


255 


PRINT D*"RUN STARTUP" 




FFAE 


1 75 


G = G - 1 ■ PRINT D* M CL0SE" 


506E 










1 80 


PRINT D* M BLQAD FONTE CODE" 


0FAD 










185 
190 


REM IMPRIMANTE 

utaR 18: HTAB 10: PRINT "All 

V 1 it V ft \JF I III r I U 1 W ■ 1 1 V i I « 1 1 1 1 1 

ui up i i 1 1 ii li i i man i c \ k/i ii f i w j 




i — i 

B 


FFTV 








; : INPUT A* 


A7AE 


100 


TEXT : NORMAL :D* = CHR* <4 




1 95 


VTAB 18: HTAB 10: PRINT "Edi 






) 




CD3E 




t i on dps -fontes disooriibles 




105 


Hurt : VIHO I £■ • JlWtKst 


• PR 








9807 




TNT "FT UTFRGF FN rflllR^" 


* NO 




200 

ft- V V 


PRINT D*"PR£1"! PRINT E*"a": 






RMAL 




80A6 




CHR* (?) " 1 36N" : CHR* (15): C 

W 1 HIT \rr ft W wl 1 1 WP ll»T * ft V * 1 W 




110 


A = 16384 




9217 




HR* < 9 ) ■ Z " 


0A49 


1 15 


FOR I = TO 3: READ R: 


POKE 




205 

ft- U J 


PRINT E*" 1 * 


0288 




I + A,R: NEXT 




AD50 


210 


PRINT " EDIT I ON DES FONTES" : 

1 l« In 1 Lb \J A 1 ft Wl 1 Irf tm. W 1 Wf 1 1 1m w ■ 




120 


A=A+3:B"31:F=72 




24B6 




PRINT 


80E9 


1 25 


B = B + 1 : POKE A + 1 ,B: 


POK 




215 


PRINT "SYSTEMS ■ \ i FOR L 






E A + 2,F 




AD88 




= 32 TO 126' PRINT CHRS <L) 




130 


FOR I - A + 3 TO A + 1 : 


P0K 






: ! NEXT Li PRINT 


BC48 




E 1,0: NEXT 




2B55 


220 


FOR U = 1 TO G:K$ = G$<U) 


1669 


135 


A = A + 10: IF A < 17337 


THE 




225 


K* = 'FT. " + K* 


7682 




N 125 




C0D5 


230 


PRINT D*"8L0AD" K*" ,A*4000" 


78D0 


140 


POKE I ,0 




1E5E 


235 


CALL 768 


8331 


145 


PRINT D*"BSAUE FT.UIERGE 


,A*4 




240 


PRINT G*<U> ;E*"" ; : FOR L = 
32 TO 126: PRINT CHR* <L) ; : 






QQ0,L955": PRINT D*"RUN 
TUP" 


STAR 


F9D9 




NEXT L: PRINT E*"*" 


662B 


150 


DATA 27,43,27,73 




C2AA 



100 PRINT CHRS <4)"PR£3": PRINT 

105 VTAB 12: PRINT ■ 

, < Auteur > 

Di dier . .CHARRON , 

u 

110 LQMEM: 20000 :B* = M " 

" J " : : FOR D = TO 9 : READ 
E: POKE 820 + D,E: NEXT : DA 
TA 104,168,104,166,223,154,7 
2,152,72,96: DIM C*<8,8>: F0 
R F - 1 TO 8: FOR D = 1 TO 8 
:C*<D,F) = NEXT D: NEXT 

F : D* - CHR* <4) :E$ = CHR* 
(27) 

115 PRINT DV PREFIX"! INPUT PF$ 
120 PRINT t DIM G*(50): PRINT Dt 

■ OPEN "?PF*i M ,TDIR": PRINT D 

$" READ" ?PF$ :G = 1: INPUT A*: 

INPUT A*: INPUT A* 
125 INPUT G*<G):6$<G) = MIDf <G 

*<G) l 2,13>i IF Gt(G) = TH 

EN 140 

130 IF MID* (Gt<6> f l,3) = "FT." 



H FONTE 

ED56 



9C9B 



B688 
47AC 



5BFC 



D719 



THEN G*(G> = MID* <G$<6),4, 
12) jG ~ G ♦ 1 
135 GOTO 125 

140 G = G - 1 : PRINT D*" CLOSE" :H 
= 0: IF PEEK < - 1088) - 22 
4 < = THEN H = 1 

145 PRINT D*" BL0AD FONTE. CODE": 
PRINT D*" OPENFONTE .FIN ,TTXT" 
: PRINT D*" READ FONTE. FIN": 
INPUT H*: INPUT I*: PRINT D* 
" CLOSE" : H* - H$ + MID* CBS, 
1 ,12 - LEN (H*) ) : I* = I* + 
MID* <B*,1 ,12 - LEN (I*))! I 
= 6 

150 PRINT D* ,, PR£3"i PRINT 
155 GOSUB 300: ONERR GOTO 290 
160 IF 1 > 14 THEN I = 6 
IF I < 6 THEN I = 14 
IF I ■ 10 THEN MTAB I: HTAB 
35; PRINT " -------- 

175 VTAB I: HTAB 3: PRINT "=>";: 
GOSUB 500: IF E * 10 THEN V 
TAB I : HTAB 3: PRINT " '" ;:1 



165 
170 



0ED8 
1B43 



C1E3 



C720 
4552 
6368 
323D 
98 3 F 

CF41 
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180 



135 
190 
195 

200 

205 
210 
215 



220 
225 
230 
235 
240 
245 
250 



255 

260 

265 

270 
275 
280 



285 



290 



=1+2: GOTO 160 
IF E = 11 THEN <vTAB I: HTAB 
3 s PRINT " " * ill = I - 2: GO 
TO 160 

IF E = 13 THEN 195 
GOTO 175 

ON < 3 / 2) - 2 GOTO 200 ,230 , 
235,340,385 

"vTAB 22: HTAB 39: GDSUB 500: 
IF E < > 13 THEN 220 
IF J* < > ■" THEN 1$ = JS 
IF Ft < > B " THEN H% = Ft 
PRINT D*"OPENFQNTE . FIN,TTXT" 
: PRINT D*"ldRITE FONTE .FIN" : 
PRINT Ht: PRINT 1$: PRINT D* 
■CLOSE": PRINT Dt" RUN STARTUP 



IF E = 27 THEN 160 
GOTO 200 
FS - Ht: 
J = 1 
IF J < 1 
IF J > G 
VTAB 10: 
PRINT " 
: PRINT 
TAB 34 
THEN J 

IF E = 10 THEN 
TO 240 
IF E 



GOSUB 275: GOTO 200 



THEN J = 
THEN J = 
HTAB 35: 
1 }G*(J) i " 



: GOSUB 
= J - 1 



INVERSE : 
' ; : NORMAL 

■ ----- n _ _ |_| 

500: IF E = 



GOTO 240 
J = J + 1 



1 ] 



GO 



05UB 
IF E 



= 13 
275: 
= 27 



THEN 
GOTO 
THEN 



Ft = GtCJ): 6 
200 
PRINT " 
GOTO 160 



GOTO 240 
IF Ff = " THEN 
K* - "FT." + Ft: 
DAD" KV ,A*40fSQ" ! 
AB 10: PRINT "Al 
imante <DMP/IW> 
0: PRINT D*"PR£1 
N 



240 
PRINT Df"BL 
VTAB 18: HT 
lumer l'lmpr 
";: GOSUB 50 
■i PRINT Ef" 
(15) 



; CHR$ ( 9) ■ SON" ; CHRt 
; CHR* (9) "2": CALL 748 
PRINT D* B PR£3": PRINT : GOSU 
B 300: VTAB 19: HTAB 10? PRI 
NT "Font* ";: INVERSE : PRIN 
T ' "Ft;" ■;: NORMAL : PRINT 
" install** ";: RETURN 
POKE 216,0: VTAB 22: HTAB 39 
: PRINT " ." ; : MTAB 18: POKE 
1403,69: INVERSE : PRINT " E 
RREUR " ; : NORMAL : CALL 820 : 
POKE 216,128: POP ": GOSUB 54 
0: POKE 1403,69: PRINT " 



B42F 



619C 
6989 
4948 

9899 

D749 
896E 
E465 



EC10 
5E86 
333D 
32A5 
754B 
881E 
E21C 



7541 

A8BF 

B129 

2484 
4B41 
AA85 



3B84 



F015 



" | j GOTO 160 

295 POKE 216,0: MTAB 18: POKE 14 
03,69: INVERSE : PRINT " ERR 
EUR ' ; : NORMAL : CALL B20: P 
OKE 216,128: GOSUB 540: POKE 
1403,69: PRINT ■ " J : 

GOTO 605 

300 IF H = 1 THEN 310 
305 FOR D = 2 TO 23: VTAB D: HTA 
B 1 : PRINT " ! ' ; : POKE 1403,7 



1AF3 



9: PRINT 



: NEXT D: VTAB 



23: HTAB 2: FOR D = 2 TO 79: 



PRINT "_' 
310 PRINT Et: 



;: NEXT : GOTO 315 
INVERSE : FOR D = 
2 TO 23: VTAB D : HTAB 1 : PRI 
NT '?*;: HTAB 80: PRINT ■ J» j 
: NEXT D: '•/TAB 24: HTAB 2: F 
OR D - 2 Td 79: PRINT *L" ; : 
NEXT 0: PRINT CHRt <24)j: N 
ORMAL 

315 VTA8 1: HTAB 2; FOR D = 1 TO 
78: PRINT "_" ; : NEXT D: VTAB 
3: HTAB 5: PRINT ■<?> Catalo 
gue des -fontes nombre d 



e -fontes disponibles: 



I°f f • 

: : VTAB 4 



IN 
NO 
: H 



PRINT 

HTAB 2: FOR 



VERSE S PRINT * 
RMAL : PRINT " 
TAB 2 

320 FOR D - 1 TO 78 
NEXT O: VTAB 20 
D = 1 TO 78: PRINT 41 ; : NEX 
T D: VTAB 6: HTAB 6: PRINT " 
.....Re tour au SOMMAI RE" ; : I 
F H$ = ** THEN VTAB 8: HTAB 
6: PRINT "Charger ancienne 
FONTE" j : GOTO 330 

325 VTAB 8: HTAB 6: PRINT "Charg 
er ancienne "FONTE" ; : HTAB 3 
5: INVERSE : PRINT " " jH$f" 
" ; : NORMAL 

330 MTAB 10: HTAB 6: PRINT "Char 
ger nouvelle FONTE";: HTAB 

35: PRINT 8 "";: 

MTAB 12: HTAB 6: PRINT "Supp 
rimer """une "FONTE";: VTAB 
14: HTAB 6r PRINT "Creer ""n 
ouvelle " FONTE" j: VTAB 15: H 
TAB 2 

335 FOR D = 1 TO 78: PRINT ; : 
NEXT D: MTAB 22: HTAB 16: PR 

INT " Sommaire <RET0UR> 

<ESC> changer de FONTE" 

:: RETURN 



90FF 
2B4E 



CA0E 



5CF3 



C290 



2CA3 



9A2C 



A9D7 



6C05 



TREMPLIN MICRO 
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E FONTE (suite) 

340 VTAB 14: HTAB 35: PRINT ■ 

"i!J = 1 4617 
345 IF J < 1 THEN J = G 
350 IF J > G THEN J = 1 
355 VTAB 12: HTAB 35: INVERSE i 

PRINT u «;G$CJ);- NORMAL 

: PRINT " HT 
AB 34: GOSUB 500: IF E = 27 
THEN PRINT 

' ; : GOTO 160 CI 06 

360 IF E = 11 THEN J = J - 1 : GO 

TO 345 3CC7 
365 IF E = 10 THEN J = J ♦ 1 : GO 

TO 345 D3C5 
370 IF E = 13 THEN HTAB 30: PRI 
NT "O/N-;: GOSUB 500: IF E = 
79 THEN GOSUB 550: VTAB 12: 
HTAB 30: PRINT " ' 

"""" J J GOTO 160 DBFC 
375 HTAB 30: PRINT " ■ ; : IF E 
= 78 THEN HTAB 35: PRINT " 
" ■ J J GOTO 
160 1A68 
380 GOTO 345 4347 
385 PRINT D$" BLOADFT .VI ERGE ,AS40 

00" 74A7 
390 GOSUB 565: GOTO 580 CCD2 
395 IF H = 1 THEN 405 1053 
400 FOR D = 6 TO 14: VTAB D: POK 
E 1403,55: PRINT " ! ■ ; : POKE 
1403,64: PRINT V";; NEXT D: 
VTAB 14: POKE 1403,56: FOR D 
- 1 TO 8: PRINT f : NEXT : 
VTAB 5: POKE 1403,56: FOR D 
■ 1 TO 8: PRINT ; : NEXT : 
GOTO 410 D759 
405 PRINT E*i INVERSE : FOR D = 
6 TO 13: VTAB D: HTAB 56: PR 
INT 'Z';: POKE 1403,64: PR1N 
T "_ B ; : NEXT D: VTAB 14: HTA 
B 57: FOR D = 1 TO 8: PRINT 
" L" j * NEXT 0: PRINT CHR* <2 
4);s NORMAL : VTAB 5i HTAB 5 
7: FOR D = 1 TO 8: PRINT 

NEXT D 3461 
41 K = 1 : IF E = 1 3 THEN K = 
415 FOR D = 56 TO 63: FOR F = 6 
TO 13: IF K = 1 THEN VTAB F 
: POKE 1403, D: PRINT C*<F - 
5,0 - 55) j : GOTO 425 54AE 
420 VTAB F: POKE 1403,0: PRINT ■ 



:C*<F - 5,D - 55) = 
425 NEXT F: NEXT D:M = 2 
430 VTAB 6: POKE 1403,56:L = 6:C 

= 56: GOSUB 570 
435 IF E = 32 THEN GOSUB 820 
440 IF E = 8 THEN C = C - 1 : IF 

C < 56 THEN C = 63 
445 IF E - 21 THEN C = C + li IF 

C > 63 THEN C = 56 
450 IF E = 11 THEN L = L - 3 : IF 

L < 6 THEN L = 13 
455 IF E = 10 THEN L = L + 1: IF 

L > 13 THEN L = 6 
460 IF E = 27 THEN 470 
465 VTAB L: POKE 1403,0: PRINT C 

*CL - 5,C - 55); CHRf <8)j; 

GOSUB 570: GOTO 435 
470 VTAB 14: POKE 1403,34: PRINT 

■TYPE H ou h "n GOSUB 540: 

VTAB 14: POKE 1403,34: PRINT 

" "j: IF E = 72 

R E = 104 THEN VL - E: GOTO 

480 

475 GOTO 470 

480 VTAB 14: POKE 1403,34: PRINT 
" RANGER CAR? ";: GOSUB 540: 
VTAB 14: POKE 1403,34: PRINT 

■ * ; ; IF E * 27 T 

HEN I = 12; POKE .1403,35: PR 
INT ' """ ? : GOTO 60 
5 

485 IF E < 32 OR E > 126 THEN 47 


490 IF E > 31 AND E < 127 THEN 
GOSUB 830: GOSUB 800: GOTO 4 
10 

495 GOTO 430: GOTO 160 
500 E = PEEK < - 16384): IF E < 
128 THEN PRINT 'Jl" FOR F 

■ 1 TO 50: NEXT F: PRINT CH 
R$ (8);" " ; : FOR F - 1 TO 50 
: NEXT F: PRINT CHR* (8);: 

GOTO 500 

505 POKE - 1636B f 0:E = E - 128: 
IF E < > 63 THEN RETURN 

510 VTAB 6: POKE 1403,55: INVERS 
E : PRINT " CATALOGUE DES FO 
NTES" ; : NORMAL :N - 

515 L = 8: FOR L » 8 TO 13;N = N 
+ 1 : IF N > G THEN VTAB L: 
POKE 1403,55: PRINT ■ 
■ i : GOTO 530 

520 IF L m 13 AND N < = G THEN 
VTAB L: POKE 1403,55: INVERS 



96CF 
5851 

78F4 
B335 

7784 

1 4DC 

56C8 

38C4 



36 90 



CC9C 
F046 



F148 
0C02 



B9AD 
2DBE 



12B6 
4888 

4573 
96E5 
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525 



NORMAL 
: GOTO 
VTAB L 
Gt<N) ; 

»! 

NEXT L 
535 VTAB 
SE ; 



PRINT " SUITE ■ jj 

540 :N = N - 1 



: GOSUB 
530 

POKE 1403,55: 
SPC( 15 - LEN 



PRINT 
CG*<N) 



530 



540 



545 

550 
555 
560 



565 



570 



575 

580 
585 



- 14384) : IF £ < 
PRINT "_";: FOR F 
[ NEXT Fi PRINT CH 
1 i : FOR F = 1 TO 50 
PRINT CHRt (8):: 



E - 128: 



IF N < - G THEN 515 
13s POKE 1403,55: INVER 
PRINT " FIN "■• 

NORMAL : GOSUB 500 : 
FOR L = 6 TO 13: VTAB L: POK 
E 1403,55: PRINT n ™ 

";: NEXT ; POP : 

GOTO 160 
E = PEEK 
128 THEN 
= 1 TO 50 
R* <B>;" ' 
; NEXT F: 
GOTO 540 

POKE - 16368,0 :E = 
RETURN 

IF It - Gt< J) THEN If = "' 
IF Ht = Gt<J) THEN H* = "' 
PRINT Dt" DELETE FT. "GS< J) 
OR - J TO G - 1 :Gt <0> = 
(0+1): NEXT 0:G = G - 1 
TAB 3: HTAB 5: PRINT "<?> 
talogue des Pontes ' "nomb 
re de fontes d i sport i bits 
;: INVERSE : PRINT " "jGj" H 
;: NORMAL : PRINT " ";: RETU 
RN 

VTAB 3: HTA8 5: PRINT ■ ""C 
r£ation ~de -fontes nom 
bre de fontes disponibles 
■;: INVERSE ; PRINT " ■fG;* 
NORMAL : PRINT " 1 ; : RET 



F 
G* 

V 
Ca 



URN 
E = 
128 
(L - 5,C - 
R P = 1 TO 



PEEK 
THEN 



< - 16384) : IF E < 
INVERSE : PRINT Ct 
55);: NORMAL : FO 
50: NEXT P: PRINT 



CHRt (8) ;Ct(L - 
FOR P = 1 TO 50: 



5,C - 55) ; ; 
NEXT P: PR I 



NT CHRt (8);: GOTO 570 

POKE - 16368, 0:E = E - 128: 

RETURN 

ONERR GOTO 295: Ft = 

IF It = "■ THEN VTAB 8: HTA 

B 6*. PRINT "Charger ancienne 

"FONTE" } : HTAB 30: PRINT " 
ril GOTO 6 



559F 



A10C 
294A 



59C6 



EABA 

6BC9 
A635 
1133 



AA95 



PAQ2 



4ED5 

6BC9 
20A8 



C3DF 



590 VTA8 8: HTAB 6: PRINT "Charg 
er ancienne FONTE';; HTAB 3 
5: INVERSE : PRINT " ■ ; I* s 
1 } : NORMAL : PRINT ■ 



'Ut r 1 i 



595 VTAB 6: HTAB 6: PRINT 
ser FONTE uiergt"; 

600 VTAB 12: HTAB 6: PRINT "SauY 
egarder "la FONTE";: VTAB 
22: HTAB 16: PRINT "<ESC> Po 
ur retour au Menu Pr#c£dent 

= 6 

605 IF 1 > 12 THEN I = 6 
610 IF I < 6 THEN I - 12 
615 VTAB 12: HTAB 30: PRINT ■ 

"""" VTAB 

10: HTAB 30: PRINT ■ " 



620 VTAB Is HTAB 30: PRINT "<=*; 

: GOSUB 540: IF E = 11 THEN 

VTAB 1: HTAB 30: PRINT ■ "«j 

:1 = I - 2: GOTO 605 
625 IF E = 10 THEN VTAB I: HTAB 

30: PRINT " "" ; :I = I + 2: G 

0T0 605 
630 IF E = 13 THEN 645 
635 IF E = 27 THEN FOR P = 5 TO 

14: VTAB P: HTAB 30: PRINT * 

NEXT P:I = 14: 6 

OTO 155 
640 GOTO 620 

645 VTAB I; HTAB 30: PRINT " """ 

;: ON (1 / 2) - 2 GOTO 650,6 

55,665,705 
650 Jt ■ " " : VTAB 1 : HTAB 35 1 P 

RINT 1 ■ ; i GOS 

UB 800: GOTO 395 
655 IF It = "" THEN 605 
660 Jt = ■": PRINT Of "BLOAD FT," 

It",At4000": GOSUB 800: GOTO 

395 
665 J = 1 

670 IF J < 1 THEN J = G 

675 IF J > G THEN J = 1 

680 VTAB 10s HTAB 35: 
PRINT " "jGtCJ);" 
: PRINT SPC< 14 - LEN (Gt< 
J)));: HTAB 34 i GOSUB 540: I 
F E = 1 1 THEN J = J - 1 : GOT 
670 

685 IF E = 10 THEN J = J + 1 : GO 
TO 670 



INVERSE : 
* j : NORMAL 



1680 
2C80 



30E0 
3D3B 
8F3D 



084E 



5A97 



BCCE 
7089 



4281 
1F43 



BA18 



8B52 
6C8D 



CB7A 
7548 
881E 
E21C 



21 9C 
9EC6 
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S FONTE (suite) 



690 IF E = 27 THEN PRINT " 

G0T0 40 5 

695 IF E = 13 THEN J* = GS<J): P 
R1NT DS" BLQAD FT . " JS" ,AS4QQ0 
VTAB 10: HTAB 30: PRINT 1 
GOSUB 800; GOTO 395 
700 GOTO 670 

705 N ■ : LS = " " : IF J* = TH 
EN 715 

710 LS = JS: GOSUB 840 sN = LEN 
<LS): VTAB 12: HTAB 30 J PR IN 
T "=>";: POKE 1403,34: PRINT 
IS;: GOTO 735 

715 VTAB 12: HTAB 30: PRINT "=>" 
j: HTAB 35 

720 GOSUB 540: IF E ■ 27 THEN 60 
5 

725 IF E < 65 OR E > 90 THEN 720 
730 PRINT CHRS <E);;N = N + 1 ;L 

S - LS + CHRS (E) 
735 GOSUB 540: IF E = 27 THEN V 

TAB 12: HTAB 30: PRINT ■ 

"'■ " " j : GOTO 605 

740 IF E = 13 THEN MS = LS + MI 

OS (BS,1,12 - LEN (LS)): GO 

SUB 780: IF Q = 1 THEN 605 
745 IF Q = 2 THEN PRINT DS;"BSA 

VE FT." ;LS;° , AS4000 ,L955" : :Q 

= 0: GOTO 605 
750 IF E = 13 THEN PRINT DS; "BS 

AVE FT . " ;LS ; " ,AS400Q , L955 - : G 

- G + 1 :GS<G) = LS + MIDS ( 

BS,l f 12 - LEN < LS) ) : JS = LS 

: GOSUB 565: GOTO 605 
755 IF E = 8 OR E = 

INT CHRS <8> ;" 

N = N - 1: IF N < 1 THEN LS 

= : GOTO 715 
760 IF E = 8 OR E = 127 THEN LS 

= MID* <LS,1 , LEN C LS) - 1) : 

GOTO 735 

765 IF <E < 48 OR E > 57) AND (E 
< 65 OR E > 90) AND <E < > 
46) THEN 735 

770 IF N > =12 THEN N = 12: GO 
TO 735 

775 PRINT CHRS (E) ; :N = N ♦ 1:L 
S = LS + CHRS (E): GOTO 735 

780 Q - 0: FOR R = 1 TO 6s IF GS 
<R) = MS THEN Q = 1 

785 NEXT R: IF Q = THEN RETUR 
N 



127 THEN PR 
; CHRS (8);: 



BDA8 



6F6A 
FC48 

0006 



8301 

495E 

BCOD 
63D6 

3740 
HID 
817E 
6E90 



6F40 

248B 

34D1 

3E88 
B6C6 
F9C4 
54B3 
2581 



790 



795 



800 



320 



825 



830 



835 

840 
845 
850 

855 



VTAB 17: HTAB 6: PRINT * La 
font* " ;: INVERSE : PRINT ■ 
■;MS" NORMAL : PRINT " e 

xiste d£ja VRetour pour acc 
•pt#r " ; : GOSUB 540: IF E = 
13 THEN G = 2 

VTAB 17: HTAB 6: PRINT SPC( 
60);: RETURN 

VTAB 14: POKE 1403,34: PRINT 
"APPEL "CAR? GOSUB 540: 
IF E - 27 THEN POKE 1403,34 
! PRINT " 
= 12: GOTO 605 



:I 



805 
810 

815 



13 THEN 
32 OR E 



IF E = 
IF E < 


PRINT 
TO 8:A 

32) * 10 + C> 
8:S =128/2 



RETURN 
> 126 THEN 



CHRS (E) ; : FOR C ~ 1 
= PEEK (16389 ♦ <E - 
FOR L = 1 TO 
<L - 1):CSC9 



- L,C) = CHRS 
S) * 4 + 46) :A 
/ S) * S: NEXT 
TURN 
IF CS(L 

EN csa 

ETURN 
IF CS(L 
EN CS(L 
ETURN 

POKE 16388 + 
: POKE 16389 
,VL: FOR C = 
OR L = 1 TO 
**" THEN B = 
NEXT L: POKE 



< - INT <A / 
= A - INT (A 
Ls NEXT C: RE 



5,C 
5,C 

5,C 
5,C 



55) 
55) 

55) 
55) 



TH 
: R 

TH 

: R 

10, E 
10 
F 

1) 
32 

> * 10 + C,B: NEXT C: RETURN 
A = 1 
IF 
IF 
HEN 
LS s 
URN 



(E - 32) * 
+ CE - 32) * 
1 TO 8:B = 
li IF CS<L,C) 

e + 2 * a - 

16389 ♦ <E - 



* > LEN (LS) THEN 855 
MIDS <LS,A,1) < > n " T 
A = A + 1 : GOTO 845 

MIDS ( LS f 1 , A - 1) : RET 



7843 
427C 



E7F8 
799B 

DEFF 



EA28 
7224 
3224 



74F0 

18E6 
5342 
0BC7 



129A 



E FONTE.CODE 



1SAVE FONTE.CODE 
AS30H.LS33 



*3QO ,332 

0300- A9 FF 85 06 A9 3F 85 07 

0308- AD C8 BE 85 08 AD C9 BE 

0310- 85 09 E6 06 A5 06 DO 02 

0318- E6 07 C6 08 A5 08 C9 FF 

0320- DO 06 A5 09 FO OC C6 09 

0328- AO 00 Bl 06 20 ED FD 4C 
0330- 12 03 60 
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INITIATION 



DOS 



ProOOS 



Clement RENARD 



CLASSEMENT 



(alphabetique, mais suivant la longueur) 



Ce micro-programme ne pretend pas etre un 
modele du genre. II vous montre seulement 
comment trier une liste dans I'ordre alphabetic 
que, mais en priorite suivant la longueur des 
mots. Vous noterez que le tri alphabetique est 
effectue en pfusieurs fois, precisement par 
groupe de mots de n lettres. 



100 
105 



no 

115 



120 
125 
130 

135 
140 
145 
150 
155 

156 
160 
165 

170 
171 
175 
180 
185 
190 

195 



LEN CM* < 
L2 ■ L 
L 



TEXT : HOME :D* = CHR* t4) 
S = 20: k/TAB 23: PRINT "TAPE 
R DES MOTS < R I EN POUR ARRETE 
R) H S : VTAB 1 : PRINT : VTAB 1 
DIM M*<3 + 1) 

FOR N = 1 TO Ss PRINT N" " ; : 
INPUT B -> " ?M*<N) ! IF M$CN) 
= u " THEN 125 
NEXT N 

K » 0:N = N - 1 :L1 = 30 
FOR I = 1 TO N:L ■ 

IF L > L2 THEN 
IF L < LI THEN LI = 
NEXT 

FOR I = LI TO L2 
Kl = K 

FOR J = K + 1 TO N: 
CM*(J>) < > I THEN 
IF J = K + 1 THEN 171 
m = Mf<J) 
FOR X = J TO K + 2 
:M*(X> ■ M*<X - t) 
M*CK + 1) ■ m 
K = K + 1 
NEXT J 

IF Kl = K THEN 210 

IF K = Kl + 1 THEN 210 

F = 0: FOR Z ■ Kl + 1 TO K - 

1 

IF M*<Z) < = M*<Z + 1) THEN 
205 



IF 
175 



LEN 



STEP 
NEXT X 



- 1 



7938 



B05C 
8694 



B004 
9BD0 
F9D5 

E54D 
BDA4 

0582 
5056 
8697 

4D5F 
8C68 
3B4D 

5C06 
AE47 
215F 
A3CC 
3C9B 
1A94 

F0A6 

49DA 





PRINCIPALS 5 VARIABLES 


Dans I'ordre ou elles apparaissent : 


S 


Nombre maximum de mots de la liste. 


M$( 


Contiennent les mots. 


K 


Pointeur utilise dans le classement sui* 




vant la longueur. 


LI 


Longueur du mot le plus court. 


L 


Longueur d'un mot en cours de tri. 


L2 


Longueur du mot le plus long. 


Kl 


Pointeur-memoire utilise avec K. 




Pointeur utilise au cours du classement 




alphabetique. 



200 M* = li$<Z) iM*<Z) = M*(Z + 1) 

:M*<Z + 1) = M*:F = 1 
205 NEXT Z s IFF THEN 190 
210 NEXT 1 

215 FOR I = 3 TO Ns VTAB Is HTAB 

L2 + 8: PRINT M*CI>: NEXT 
220 YTAB 22; PRINT : PRINT U (E)N 

CORE APPLESOFT "<M>ENU DI 

SK " ; : GET R* 
225 IF R* = "M" OR R* = "m a THEN 

PRINT D$ "RUN /TM 17/ START UP" 
230 IF R* = OR R* = "e" THEN 



235 IF R$ = "A" OR R* = "a" THEN 

HOME : END 
240 GOTO 220 



0EA9 
CQ67 
9DCB 

4308 



0A58 
6002 
5A89 

5E26 

273F 



QUESTION 



1. ADELE 

2. BENOIT 

3. GUY 

4. RAOUL 

5. LUC 

6. ANNIE 



LUC nest pos 6 sa place. 
Qu'est-ce qui a pu se passer ? 

1. GUY 

2. ADELE 

3. ANNIE 

4. LUC 

5. RAOUL 
BENOIT 
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Votre bibliotheque 

INFORMATIQUE par NESTOR 




♦ LA PROGRAMMA TION 
EN BASIC A VEC ProDOS 
(Apple) 

Qui peut se vanter de bien connoitre Pro- 
DOS ? Vous... olors, bravo ! Parcourez 
tout de meme les 265 pages de ce manuel 
"officiel" et je parte que vous y appren- 
drez encore quelques details ignores. Je 
vous signale au passage qu'il est accom- 
pagne de sa disquette (ProOOS 11. 1), 
laquelle comporte notamment le pro- 
gramme de renumeratage (et oulres 
commodites), intitule "APA '. 

INTER EDtVONS, &7 rue du Maim, 75014 PARIS 
W. : 43,27.74.50 



• INTRODUCTION AU BASIC 
(par Pierre LEBEUX) 

Si le MS BASIC — beaucoup plus structure 
que notre ben vieil AppleSoft — n'a plus 
de secrets pour vous, e'est sans doute 
parce que vous chatouillez porfois le cla- 
vier d'un IBM PC ou de quelque clone {pas 
drole du tout !}. 

Pierre IE BEUX vous propose, dons cette 
nouvelle edition, non pas un survol 
ropide du MS BASIC, mais bien une etude 
complete et methodique de ce langage. 

Je ne vous conseille pas d'escamoter le cha- 
pitre "introduction" et pas davontage le sui- 
vant, consacre aux "general it es du langage 
Basic", lis vous procureront certainement 
une meilleure connaissance du Basic en 
general et du MS BASIC en particulier. 



J'ai beoucoup apprecie la presentation 
claire et concise de ce gros manuel (500 
pages], mais plus encore les nombreux 
exemples dont il est emaille (I'auteur sait 
sortir des sentiers battus ! ) : tris, carres 
magiques, probleme des huit reines, etc. 
Pierre LE BEUX, ing^nteur de I'Ecole Cen- 
trale, docteur en informatique de I'Uni- 
versite de Colifornie est aussi protesseur 
a I'Universite de technologie de Com pi e- 
gne. On se prend a envier ses eleves 1 

SY9EX MmpOSUdvCm, 75CISPASIS. W. : 42.03.95,95 




• TECHNIQUES DE 

PROGRAMMA TION EN C 
LA GESTION DES DONNEES 

(par If. A. RADCLIFFE et I J, RAAB) 

Cet ouvrage (traduil de I'omericain por Yann 
Festol) se presente sous la forme d'un 
manuel de haul niveau destine a la bis aux 
programmers experiments et aux deve- 
loppeurs. II oborde deux aspects fondamen- 
laux des logiciels d'applicotion : I'interocti- 
vile et le besoin permanent de stacker des 
donnees. De nombreux exemples illustrent 
les fonctions d 'entree, de validation, d'atfi- 
chage el destockage. 

La premiere partie, consaaee au concept de 
structure de donnees, regroupe les techni- 
ques d'encodoge, de decodage et de valida- 
tion, la deuxieme parlie traite des diffe- 
rent* types de donnees et eomprend un cha- 
pitre enfier sur le developpement de types 
de donnees personnalises. La troisieme par- 
tie presente des exemples d'applicat.on cor- 
respondent aux parties 1 et 2. 



Les auteurs : 

— Robert A. Radcliffe est consultant en 
systemes d'information. II concoit et 
met en place des logiciels informati- 
ques ainsi que des applications pour 
micro-ordinateurs. 

— Thomas J. Raab se specialise dons la 
recherche micro-informotique et les 
technologies de pointe* 

676 pages trochees. 

SYKX, 6-8 impasse du Cur4 75018 PARIS, 




• AMSTRAD PCJ512 f 
GUIDE DUGRAPHISME 
(par G. FAGOT-BARRALY) 

Ce guide permet de tirer le meilleur parti 
des possibilites grophiques de I'Amstrad 
PCI 512. Il s'adresse a la fois aux debu- 
tants et aux programmeurs confirmes. II 
decrit, par un grand nombre de program- 
mes, de dessins et de photographies 
d ecrans, toutes les instructions qui con- 
cerned legraphisme. Plusieurs chapitres 
traitent, entre outres : 
Du multifenStroge, caracteristique de I'ordi- 
nateur — des notions relatives au trace des 
figures geometriques — de I'alfichage 
olphanumerique — des commandes de des- 
sin — du graphisme de type LOGO. 

Le livre (305 pages au format 169X220) 
se termine par I'analyse des methodes 
qui permettent de dep facer ou d'agrandir 
un motif ou encore de lui faire subir 
symetries et rotations. 

I'auteur : Georges Fagot-Barraly, profes- 
seur de mathemaiiques et d'informatique, esl 
specialiste de I'utilisotion des micro- 
odincleurs dan* I enseignement. II es? ; auteur 
de nombreuses publications sur la prog ram mo- 
tion en BASIC et en Assembleur. 

SYBBt. 6-8 impasse <h Cvre, 75018 PARIS. Ul : 42.03. 95.95 
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UTILITAIRE 



DOS 3.3 



Marcel COTTINI 



PLACE-DOS 



Configuration requise : tout Apple // avec une 
RAM de 64 Ko ou plus, le DOS 3.3 Slave, et un 
lecteur de disquettes 5 pouces 1/4. 



PLACE DOS est un programme 6crH en Basic Applesoft, permettant de sauvegarder 
(Write) sur les pistes $00-$02 d'une disquette deja initialisee, un systeme d'exploi- 
tation place en memoire centrale et patche par le programme PATCH DOS. Son 
fonctionnement convient tout aussi bien pour un DOS Slave autre que le DOS 3.3. 
Lorsque le programme est execute, il appelle un sous-programme en langage 
machine : RWTS.OBJ, Par la suite, HIAAEM est declare a 16384. Le programme, 
d'une structure des plus simples, exploite certaines astuces liees au DOS 3.3. Un 
menu clair et precis renseigne I'utilisateur sur la poursuite eventuelle de I'execu- 
tion en cours, permettant un suivi des principales phases du programme. La tou- 
che ESC (Escapade) autorise un retour au menu precedent, ou I'abandon pur et 
simple du programme avec I 'option du numero du slot. ■ 



A PROPOS DU PROGRAMME 

Les variables SL et DR memorisent respectivement 
les numeros du slot et du drive ou se trouve la dis- 
quette 6 troiter. Le numero de la disquette actuelle 
est lu, puis memorise pour une application future. 

Le nom du programme de boot, sauvegarde sur lo 
piste $01 secteur $09 de la disquette, sera declare, 
puis formate dans une chaine de caracteres limitee 
a 30 codes ASCII. Cette contrainte est dictee par le 
DOS 3.3 qui n'accepte qu'un maximum de 30 carac- 
teres pour un nom de fichier. 

I acceptation du nom du boot suppose certaines contraintes ; 

• Un maximum de 30 caracteres est autorise. 

• Le premier caractere du nom sera un coraclere alphobetique. 

• Apres le premier coractere alphobetique, tout carac- 
tere sera tolere. 

• Le bit 7 sera mis a 1 (ligne 630). 

• Les touches de deplacement sont tolerees. 

• Les minuscules sont interdites. 



PHASES ESSENTIEUES DU PROCRAMME 

Lignes 170-200 Affichage du menu 6 I'ecran, 

Lignes 210-250 AAemorisation du numero du slot. 

Lignes 260-310 AAemorisation du numero du drive. 

Ligne 350 Annule une ancienne chaine du meme nom. 

Lignes 360-480 Composition de la chaine de caracte- 
res avec le nom du boot. 

Ligne 500 Formate la chaine de caracteres avec 
les variables tableau. 

Lignes 510-590 On determine le type de fichier boote : 
A = Applesoft ; B = Binoire ; E = EXEC. 

Lignes 610-630 On poke le nom du programme de 
boot dans le tampon memoire reserve 
v au DOS. 

Lignes 640-750 On sauvegarde le DOS implante en 
memoire centrale sur les trois pre- 
mieres pistes de la disquette et dans 
un ordre determine. 

Lignes 770-800 Gestion d une erreur eventuelle. 

Lignes 810-820 On quitte le programme- (suite page 22) 
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10 REM | I 

20 REM PLACE LE DOS 

30 REM PAR MARCEL COTTINI 

40 REM COPYRIGHT 86 

50 REM 

60 REM 

70 PRINT CHR$ (4);"BRUN RWTS.OBJ" 

80 HIMEM: 16384 

90 DIM NO$(32) 

100 ONERR GOTO 800 

110 REM SLOT ET DRIVE 

120 TEXT : HOME : NORMAL 

130 SL = PEEK (43626): REM SLOT 

140 DR = PEEK (43624): REM DRIVE 

150 VOL = PEEK (46017); REM NUMERO DE 

LA DISQUETTE 
160 REM MENU 

170 TEXT : HOME : INVERSE : PRINT " PLACE LE 
DOS MODIFIE": NORMAL : PRINT : PRINT 
"SUR LES PISTES $00 $02 DE LA DISQUETTE" 

180 PRINT 

190 FOR X = 1 TO 40: PRINT NEXT X: 

PRINT 

20O VTAB 8: HTAB 1: PRINT " - LA DISQUETTE SE 

TROUVE:" 
210 REM SLOT NUMBER 

220 VTAB 9: HTAB 1 : PRINT " - SLOT : ";: 
GET SL$ 

230 IF SL$ = CHR$ (27) THEN GOTO 810 
240 IF SL$ < "3" OR SL$ > '7" THEN 220 
250 PRINT SL$ 
260 REM DRIVE NUMBER 

270 VTAB 10: HTAB 1: PRINT " - DRIVE: " 
;: GET DR$ 

280 flF DR$ = CHR$ (27) THEN VTAB 9: CALL - 

868: GOTO 200 
290 IF DR$ < "1 " OR DR$ > "2" THEN 270 
300 PRINT DR$ 

310 SL = VAL (SL$):DR = VAL (DR$): REM 

REVECTORISE SLOT & DRIVE 
320 REM BOOT NAME 

330 VTAB 8: HTAB 1: CALL - 958: PRINT 

"BOOT: "; 
340 REM ANNULE LA CHAINE 

350 FOR NUL = TO 30:NO$(NUL) = " J ':NO$ 
s NO$(NUL): NEXT NUL: REM ANNULE 
L'ANCIENNE CHAINE 

360 REM HELLO NAME 

370 FOR HEL = TO 30 

380 VTAB 8: HTAB 7 + HEL: GET NO$(HEL) 

390 IF HELO AND NO$(HEL) = CHR$ (13) 



THEN NO$(HEL) = "": GOTO 500: REM 

TESTE LA TOUCHE RETURN 
400 IF NO$(0) = CHR$ (27) THEN VTAB 8: HTAB 

1: CALL - 958: GOTO 270: REM TESTE LA 

TOUCHE ESCAPE 
410 IF NOS(HEL) = CHR$ (27} THEN VTAB 8: 

HTAB 7: CALL - 868: GOTO 340: REM 

TOUCHE ESC (RETOUR AU MENU) 
420 IF HEL = 30 THEN HEL = 29: VTAB 8: HTAB 

7 + HEL: CALL - 868: GOSUB 790: GOTO 

380: REM TESTE LES 30 CARACTERES 

ADMIS 

430 IF NO$(HEL) = CHR$ (8) AND HEL > 
THEN NO$(HEL) = "":HEL = HEL - 1: 
VTAB 8: HTAB 7 + HEL: CALL - 868: 
GOTO 380: REM TESTE LA TOUCHE FLE 
CHE GAUCHE 

440 IF HEL < THEN HEL = 0: GOSUB 790: 
NO$(0) = "": VTAB 8: HTAB 7: CALL -868: 
GOTO 340: REM PREMIER CAR ACTERE ? 

450 IF NO$(0) < CHR$ (65) OR NO$(0) > CHR$ 
(90) THEN GOSUB 790: GOTO 380: REM 
PREMIER CARACTERE ALPHABETIQUE ? 

460 IF NO$(HEL) < CHR$ (32) OR NO$(HEL) > 
CHR$ (95) THEN GOSUB 790: GOTO 380: 
REM CARACTERES SUIVANTS ? 

470 VTAB 8: HTAB 7 + HEL: PRINT NO$(HEL);: 
REM AFFICHE LE CARACTERE TAPE 

480 NEXT HEL 

490 REM FORMATE LA CHAINE 

500 FOR CAR = TO 29:NO$ = NO$ + 

NO$(CAR): NEXT CAR 
510 REM FILE TYPE 

520 VTAB 8: HTAB 1: CALL - 958: PRINT 
"(A)PPLESOFT (B)INAtRE 
OU (E)XEC — » 

530 GET PK$ 

540 IF PK$ = CHR$ (27) THEN GOTO 330 

550 IF PK$<> "A" AND PK$ <> "B" AND 

PK$<> "E" THEN GOTO 530 
560 VAR = 40514: REM TYPE DE FICHIER 
570 IF PK$ = "A" THEN PK$ = 'APPLESOFT": 

POKE VAR t 6:GOTO 610 
580 IF PK$ a "B" THEN PK$ = "BiNAIRE": 

POKE VAR.52: GOTO 610 
590 IF PK$ = "E" THEN PK$ = "EXEC": POKE 

VAR.20: GOTO 610 
600 REM POKE HELLO NAME 

610 VTAB 8: HTAB 1 : CALL - 958: FLASH : PRINT 

" WRITE DOS ": NORMAL: PRINT : 

PRINT "BOOT NAME: ";NO$; PRINT 
"FICHIER : ";PK$: PRINT "VOLUME 

";VOL 

620 FOR NO = 1 TO 31: POKE 43636 + 
NO, 160: NEXT NO: REM ANNULE HELLO 
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• 


630 


FOR 1 = 1 TO LEN (NO$): POKE 43636 + l r 


740 


BUFF = 45312 






ASC ( MID$ (NO$J)) + 128: NEXT h REM 


750 


FOR 1 = TO 2: & WSEC(02,I,BUFF):BUFF 


• 




POKE LE NOM NO$ 




a BUFF + 256: NEXT 1 


• 


640 


REM WRITE DOS 


760 


GOTO 120 




/en 

660 


& DI5K(5L,DR r U0G) 
BUFF a 46592 


770 


REM GESTION ERREUR 


• 


kid 


rvjrvt 4»JolD,tf. KtM ANNULt LA CUM 
iiAMnc 


780 


HOME : VTAB 12: & BELL' & BELL' PRINT 
"1 O ERROR - LECT/ECRITURE IMPOSSI 


• 


680 


POKE 47083, VOL: REM POKE LE NUMERO 




BLE.": PRINT "TAPEZ UNE TOUCHE POUR 






DU VOLUME ACTUFL 


790 


CONTINUER.,, ": GET R$: RETURN 




690 


FOR 1 = TO 9: g WSEC(00,l,BUFF): BUFF 
= BUFF + 256: NEXT 1 


FOR BIP = 1 TO 10; & BEL1: NEXT BIP: 
RETURN 




700 


BUFF = 396&0 


800 


GOSUB 770: GOTO 170 


710 


FOR 1 = 10 TO 15: & WSEC(00,l,BUFF): 


810 


REM QUITTER LE PROGRAMME 






BUFF = BUFF + 256: NEXT 1 








720 


BUFF = 41216 


820 


HOME : PRINT : PRINT "GOOD BYE & 


• 

I 


730 


FOR 1 = 1 TO 1 : & WTRKfl, BUFF): NEXT 1 




BELL: END ■ 



♦ 
I 

ft 
» 



Tapez ces codes 
suivant le 
processus 
habiluel et 
sauvez votre 
programme par 
un BSAVE 
RWTS.OBJ, 
A$90G(J,L$G1FA 

Si vous possedez 
notre disquette 
SIGNATURE, 

controlez 
['exactitude de la 
saisie. 



RUTS.OBJ,A*9000,L*0iFA 



COMPLEMENT DE PLACE. DOS 




9000 : 


A9 


17 


8D 


F6 


03 


A9 


90 


8D 


F7 


03 


AD 


E9 


B7 


8D 


D6 


90 




9010: 


AO 


EA 


B7 


80 


D7 


90 


60 


A2 


00 


86 


19 


AO 


00 


BD 


4C 


90 


B21 C 


9020: 


F0 


1A 


C9 


FF 


F0 


08 


Dl 


BB 


DO 


07 


CS 


E8 


DO 


EF 


4C 


C9 


95AE 


9030: 


DE 


E8 


BD 


4C 


90 


DO 


FA 


E8 


E6 


19 


DO 


DF 


20 


98 


09 


04 


CB56 


9040 : 


19 


A6 


19 


BD 


71 


90 


48 


BD 


70 


90 


48 


60 


44 


49 


53 


48 


486E 


9050 : 


DO 


52 


53 


45 


43 


00 


57 


53 


45 


43 


00 


52 


54 


52 


4B 


00 


66A2 


9060: 


57 


54 


52 


4B 


00 


42 


45 


4C 


4C 


00 


42 


45 


4C 


31 


00 


FF 


1B6A 


'?0 70 : 


F3 


90 


73 


91 


85 


91 


A8 


91 


AF 


91 


C3 


91 


DE 


91 


00 


A9 




9080: 


00 


85 


3C 


20 


87 


00 


C9 


22 


DO 


2A 


E6 


B8 


DO 


02 


E6 


B9 




9090 : 


A5 


B8 


85 


42 


A5 


B9 


85 


43 


AO 


00 


Bl 


BS 


C9 


22 


F0 


03 




90A0: 


C8 


DO 


F7 


84 


3C 


18 


98 


65 


B8 


85 


B8 


A9 


00 


65 


B9 


85 




90BO : 


B9 


4C 


Bl 


00 


20 


E3 


DF 


A5 


81 


30 


04 


A5 


82 


30 


03 


4C 




90CO: 


76 


DD 


AO 


00 


Bl 


83 


85 


3C 


C8 


Bi 


83 


48 


C8 


Bl 


83 


85 




90D0 : 


43 


68 


85 


42 


60 


01 


60 


01 


00 


00 


00 


E6 


90 


00 


00 


00 




90E0: 


00 


00 


00 


00 


60 


01 


00 


01 


EF 


D8 


AO 


D5 


A9 


90 


4C 


D9 




90FO : 


03 


00 


00 


00 


20 


86 


DE 


20 


67 


DD 


20 


FB 


E6 


E0 


08 


90 


E099 


9100: 


03 


4C 


99 


El 


8E 


Fl 


90 


8A 


OA 


OA 


OA 


OA 


8D 


D6 


90 


20 




9110: 


BE 


DE 


20 


67 


DD 


20 


FB 


E6 


EO 


03 


B0 


E5 


8E 


F2 


90 


8E 




9120: 


D7 


90 


A9 


00 


8D 


F3 


90 


8D 


08 


90 


20 


B7 


00 


C9 


2C 


FG 


ABD1 


9130 : 


03 


4C 


B8 


DE 


20 


BE 


DE 


20 


67 


DD 


20 


FB 


E6 


3E 


F3 


90 


6F17 


9140: 


8E 


D8 


90 


4C 


B8 


DE 


20 


BB 


DE 


20 


67 


DD 


20 


FB 


E6 


8E 


D884 


9150 : 


D9 


90 


20 


BE 


DE 


20 


67 


DD 


20 


FB 


E6 


3E 


DA 


90 


20 


BE 


EE60 


9160: 


DE 


20 


67 


DD 


20 


52 


E7 


A5 


50 


80 


DD 


90 


A5 


51 


8D 


DE 


EOEB 


9170; 


90 


4C 


B8 


DE 


A9 


01 


8D 


El 


90 


20 


46 


91 


20 


EA 


90 


90 


993B 


9180: 


04 


4C 


12 


D4 


00 


60 


A9 


02 


80 


El 


90 


DO 


EC 


A9 


OF 


8D 


6840 


9190: 


DA 


90 


18 


AD 


DE 


90 


69 


OF 


80 


DE 


90 


20 


EA 


90 


80 


El 


4C3B 


91A0: 


CE 


DE 


90 


CE 


DA 


90 


10 


F3 


60 


A9 


01 


80 


El 


90 


DO 


05 


F154 


91B0: 


A9 


02 


80 


El 


90 


20 


BB 


DE 


20 


55 


91 


AD 


DA 


90 


60 


D9 


ABE5 


91C0 : 


90 


4C 


8D 


91 


A2 


FF 


A9 


5B 


AO 


IB 


88 


DO 


FD 


2C 


30 


CO 


73CB 


91D0: 


A8 


88 


DO 


FD 


E9 


01 


F0 


EE 


2C 


30 


CO 


CA 


DO 


EA 


60 


A2 


F167 


91 E0: 


50 


A9 


22 


AO 


02 


88 


DO 


FD 


2C 


30 


CO 


A8 


88 


DO 


FD 


E9 


5414 


V1F0: 


01 


F0 


EE 


2C 


30 


CO 


CA 


DO 


EA 


60 














8FDF 
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J 



PAVES 
ALEATOIRES 



$E6F5 transmet la valeur de H, puis celte de V. 
SFBC1 calcule l adresse de base de la ligne V. 
$FC2F additionne H a cette adresse. 
Le pave (mode inverse) est stocke. 



15 

20 
25 
30 





- Pomme ouverte (floslc) 






ij 


s_ 




0300- 


20 


F5 E6 


JSR 


*E6F5 


u 


o 

a. 


40 


0303- 


8A 




TXA 










0304- 


20 


CJ FB 


JSR 


SF8C1 


1 


a. 






20 


F5 E6 


JSR 


*E6F5 


1— 


L. 


45 




8A 




TXA 












20 


2F FC 


JSR 


*FC2F 






50 


030E- 


A9 


20 


LDA 


£*20 






55 


0310- 


91 


28 


STA 


(*28) f Y 








0312- 


60 




RTS 











TEXT : NORMAL : PRINT CHR* 
< 21 > r HOME 

FOR I = 768 TO 786: READ R: 
POKE I ,Rr NEXT 
V = INT < RND <1) * 23) 
H = INT < RND (1) * 39) 
CALL 768,V,H 

IF PEEK (49249) < 128 THEN 
20 

VTAB 23: CALL - 868: PRINT 
* (M) ENU DE D I SQUETTE " ; : GET 
R$: VTAB 22 

IF R$ = "M" OR R* = "m" THEN 
PRINT CHR* (4) "RUN STARTUP" 
HOME 

DATA 32,245,230,138,32,193,2 
51 ,32,245,230 ,138,32,47,252, 
169,32, 145,40,96 



9BC0 

AD2E 
AED6 
9FCF 
9727 

1D7E 



A484 

549F 
2F97 



1A72 



QUESTION 



Monsieur KOENIG, 
Abonne d Tremplin Micro, je 
me permets de vous ecrire pour 
une question que j'ai deja 
posee au Support Technique 
Apple (je suis membre du club 
Apple). La void i 

Lars du Boot de ProDOS*. une 
routine teste tous les slots (de 1 
a 7) et recannatt done certames 
cartes (Thunderclock, driver, 
souris (II'), Super serie...). Pour 
ce hire, ProDOS doit sans 
doute avoir une table de 
references. A quelle adresse se 
trouve-t-elte ? 

Le Support Technique Apple 
m'a simplement conseille de 
consulter ma documentation, 
car il se dit "support technique 
et non de developpement" ! 

Je dots vous avQuerque cette 
reponse me reste coincee dons 
la gorge ! 

Esperant que vous puissiez 
repondre a mo question, 
ogreer monsieur, mes sinceres 
salutations, 

C G \ltUAHCMt5HHl 

* ProDOS 1.0.2/1.1.1 utilises. 



REPONSE 



Merci de voire coniionce, mois il me laul vous contredire. ProDOS se 
borne, lors du Bool, a identifier trois dosses de peripheriques : les 
cartes 80 cofonnes, les peripheriques stockant les infos et les horloges 
(j'emploie dans ce cas le pluriel car les nouvelles versions 
reconnaisseni la Thunderclock el 1 horloge GS ). 

Puisque vous disposei de PRODOS 1.1.1, je vous suggere de loire BLOAD PR0D0S.T5YS A52GG0 CALL - 151 puis 
2S2A LULL, jusqu'd 2674. C'est la zone {('identification des peripheriques. Ce n'est pas trap difficile a interpreter, Je 
traduis ci-apres une page de la DOC ProDOS APPLE. Duronl so mise en place, ProDOS recherche les dispositifs de 
stockage lecture de blocs. Pour le connecteur n ProDOS considere qu il est en presence d'un "lecteur de disque' si 
Id ROW associee d ce connecteur contienl les identif kateurs suivants : 

SCnOl = $2fl $Cn03 = $00 SCnOS = $03 ( octet Cn07 est present dans lo table 

de ProDOS. mois il n'est pas teste. 

ProDOS control* emuite le contenv de l adresse SCnFF t 

• Si CnFF = $00, ProDOS considere qu'il alrouveun lecteurde type DISK II equipe des ROMs 16 secteurs el stocke, 
dans la table de 'devices" integree s'il s'agit de PraDOSl t>. dans la table de "devices ' en poge globale s'il s'ogit 
de ProDOS8, lodresse du 'Driver de DISK II". Ces routines de gestion de DISK II soni integree* d ProDOS et 
supported lout lecleur qui emule un lecteur DISK II APPLE (16 sedeursl. Pour memoire, celo suppose, erttre 
outres, 280 blocs et un seul volume. 

• Si CnFF = SFF , ProDOS considere qu 'il est en presence d un DISK II equipe des ROMs 13 secleurs. Comme il ne 
soil pas manipuier ce format, ilquiltece connecteuret poursuit ses recherches. 

• Si CnFF confient une valeur differente de SOfl ou $FF, ProDOS considere qu'il a trouve un "conlroleur de disque 
intelligent", Si en outre I'octet d'etat en SCnFE indique que le peripherique supports les oppels READ et STATUS, 
ProDOS range dans la table de devices [PS ou f%) ladressedu driver correspondent, a savoir : SCn pour I'oclet 
haut el le contenu de SCnFF pour I'octet bos, En d'autres termes, SCnFF contienl I'octet bos du driver 
correspondent ou connecteur n° 

Les odresses speciales de lo ROM soni : 

• SCnFC/FD Nombre total de blocs sur ce peripherique. Information utile pour creer lo table d'occupation du 
volume el I "en-fete du CATologue principal apres le formatoge, Si la voleur stockee fl cette odresse est nulle. le 
nombre de blocs doit etre oblenu h I'aide d'un appel a lo routine STATUS pour CE peripherique. 

• SCnFE C'est ( octet stotus" de ce peripherique. Les bit el 1 doivenl etre d I pour que ProDOS installe le vecteur 
relatif d ce peripherique dans sa table de "devices". 



Bit n° Signification du bit mis d 1 

7 support amovible 

b peripherique interruptible 

5-4 nombre de volumes de ce "device " (0d3j 



3 peripherique supportont le Formologe, 

2 on peuf ecrire sur ce peripherique. 

1 on pout lire sur ce peripherique. 

on peut appeler STATUS sur ce peripherique, 



• SCnFF Octet bos du point d entree du driver relolif 6 ce connecteur. que ProDOS placera dans so toble de devices' . 
Je completerai en signalant que la carte conlroleur de lecteurs 3 "5 est un peripherique supportont 4 volumes tout 
commele"SMARTPORT"dullcoudullG5. won kcenio. 
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UTILITAIRE 



DOS 



ProDOS 



LOUPE 




Les lecteurs de Tremplin Micro 
sont certainement des familiers 
de la telematique en general, et 
du MINITEL en particuller. Ce 
dernier possede une touche nommee LOUPE quTpermet un agrondissemenf de 
I'ecran. Avec LOUPE, voire APPLE voudra bien un MINITEL et me me plus, puisque le 
deroulement d'ecran et la copie sur imprimante vous sont offerts en sus. 



Demonstration : 

Si vous disposez de I'assembleur EDASM (Tool- 
kit] d'APPLE en version DOS ou ProDOS, entrez 
le source tel quel et compilez-le sous le nom 
de LOUPE. A. Si vous disposez dun autre 
assembleur pour APPLE, tapez le source en fai- 
sant les modifications necessaires, Sinon, pas- 
sez en mode Moniteur par CALL - 151 et entrez 
le programme en hexadecimal : 
8A00: 20 FA 8A AD 00 C0 etc.... 

Sauvez sur une disquette par BSAVE LOUPE. A, 
A$8A00,L$202. 

Pour accelerer le trace HGR, LOUPE. A utilise des 
tables d adresses. Pour eviter la saisie de ces 
tables, employez le programme CREATABHGR. 
Creation de LOUPE J : 

BLOAD LOUPE.A 

RUN CREATABHGR 

BSAVE LOUPE.0,A$8AQ0,L$528 

Tapez maintenant le programme BASIC DEMO. 
LOUPE et sauvez-le. 

Si vous possedez Jo disquette IMAGEWRITER 
TOOLKIT (DOS 3.3), transferez le programme 
en langage machine GF de cette disquette sur 
celle qui contient LOUPE. et DEMO. LOUPE. 
Pour cela, faites . BLOAD GF puis, sur votre 
disquette, BSAVE GF t A$9000,L$20G. 
Ayez aussi sur la disquette une image graphi- 
que haute resolution de votre choix, puis fai- 
tes RUN DEMO.LOUPE. 



Des que Timage HGR est affichee, vous pouvez 
utiltser les commandes suivantes : 

L pour passer en mode LOUPE. 

S pour voir l autre moitie de hmage. 

— ) pour un deroulement d'image vers le 
haut, 

t — pour un deroulement d'image vers le 
bas. 

° (RETURN) (touche ENTER) pour revenir a 
I'image normale. 

(ESC) pour retour en mode TEXT. 
Si GF est present sur la disquette, il vous est pro- 
pose une copie ecran sur IMAGEWRITER. Repon- 
dez (O)ui pour obtenir une image 21 * 27. 



A quoi peut servir loupe ? 

Bien evidemment la majorite des lecteurs de 
Tremplin Micro peut se passer de LOUPE pour 
dechiffrer I'ecran APPLE. II existe heureuse- 
ment d'autres utilisations : 
I. Donner un look neuf a des images graphi- 
ques (portraits par exemple) en effectuant 
une dilatation dans le sens de la hauteur. 
2.. Ecrire des affiches 21 * 27 si vous disposez 
d'un utilitaire d'ecriture de texte en page 
graphique. Dons ce domaine, EDIGRAPH 
(paru dans Pom s) me rend de grands 

Services (suite pag* 26) 
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3, Employer des sous- programmes de LOUPE 
pour vos propres applications : 

a. sp. LOUPE « programme de dilatation 
verticale d'une image HGR stockee en 
page 1 . Les 91 premieres lignes dilatees 
sont stockees en page HGR 2 ($4000- 
$5FfF), la deuxieme moitie de I'image 
dilatee se trouve en page graphique 3 
($6000-$7FFF). 

Appel par CALL 35433. 

b. sp. SWAP : ce programme echange le 
contenu de deux pages graphiques, en 
['occurrence ici la page 2 ($4000-$5FFF) 
et la page 3 ($6000-$7FFF). 

Appel par CALL 35551 , 

c« sp. SCROLLUP : realise un deroulement de 
la page 2 vers le haut, la page 3 alimente 
le bas de la page 2. Ce qui d spa rait de la 
page 2 est reecrit en fin de page 3. On 
peut realiser ainsi un deroulement sans 
fin. Appel par CALL 35328 ($8A00) suivi 
de CALL 35614 ($8B1E) pour derouler 
lecran d'une ligne vers le haut. 

Excmpic de programme de deroule- 
ment continu : 

BLOAD IMAGE 1 ,A$4000 : charge \ mrm 
image en page 2 

BLOAD IMAGE2,A$6000 : charge 2* 
image en page 3 

400 CALL 35328 : REM initialise le 

mode deroulement 
410 CALL 35614 : GOTO 410 

d. sp. SCROLLDOWN : action identique 6 
SCROLLUP mais vers le bas. Appel par 
CALL 35328 suivi de CALL 35726. 

4. Enfin le dernier interet de LOUPE, et non le 
moindre, est didactique, En effet, la ges- 
tion des pages graphiques de I 'APPLE II 
n'est pas evidente a priori. L etude du pro- 
gramme source permettra aux lecteurs de 
se familiariser avec la manipulation des 
octets en page graphique. 

Quelques explications : 

Une page graphique d'APPLE // comporte 192 
lignes de 40 octets. Les 7 premiers bits d'un 
octet represented chacun un point de l ecran 
(allume si bit = 1 ou eteint si bit = 0). On 
retrouve ainsi les 280 points dispontbles hori- 
zontalement en haute resolution. 



Les octets de la page graphique ne sont mal- 
heureusement pas stockes en memoire de 
facon sequentielle, Les adresses de debut des 
192 lignes ne peuvent etre obtenues qu'apres 
un calcul qui prend du temps s'il doit etre 
r^pete de nombreuses fois, et ceci meme en 
assembleur. C'est done pour des raisons de 
rapidite que Ton utilise des tables contenant 
ces adresses de debut de ligne. En realite, il 
taut une table pour les octets bas des adresses 
(TABIL) et une autre pour les octets hauts 
(TAB1H, TAB2H et TAB3H pour les pages 1 , 2 et 
3 respectivement). 

Le principe de la loupe est de grossir I'image 
dans le sens de la hauteur, done de dupliquer 
chaque ligne de la page 1 en Tecrivant deux 
fois en page 2 (pour les 91 premieres lignes) et 
en page 3 (pour les 91 dernieres lignes). 

Le swapping (echange) des pages 2 et 3 con* 
siste a echanger chaque octet d'une page avec 
I'octet correspondent de I'autre page, 

Le deroulement d'ecran (scrolling) est beau- 
coup plus complique, Prenons le eas du derou- 
lement vers le haut et decomposons les diffe- 
rentes operations ; 

• Sauvegarde des 40 octets de la premiere 
ligne (0) de la page 2 dans un tampon. 

• Copie de la ligne 1 dans la ligne 0, ... de la 
ligne n dans la ligne n-1, ... de la derntere 
ligne (191) dans la ligne 190. 

• Copie de la l ere ligne de la page 3 dans la 
derniere ligne de la page 2. 

° Copie de la ligne 1 de la page 3 dans la 
ligne de cette page, ... de la ligne n dans 
la ligne n-l ( ... de la derniere ligne dans la 
ligne 190. 

• Enfin copie du tampon dans la ligne 191 de 
la page 3. 

Toutes ces operations pour derouler Tecron 
d'une ligne vers le haut ; pour x lignes, il fau- 
dra repeter toute la sequence x fois... 

Le processus est inverse pour SCROLLDOWN 
qui effectue un deroulement vers le bas. 

LOUPE est compatible DOS et ProDOS. Con- 
trairement a certains ecrits, le programme GF 
de la disquette IMAGEWRITER Toolkit (DOS 
3.3) est apparemment utilisable sous ProDOS 
(servez-vous de CONVERT pour la conversion). 
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Les f ichiers proposes sur la disquette ; 



: Programme source (Assembleur EDASM 
ProDOS). 

: Programme objet correspondent. 

CREATABHGR ; Progromme BASIC permerlant de gene- 
rer les tables d'adresses necessaires. 



: Programme assembleur = LOUPE.A + 
tables. 

DEMO.LOUPE : Driver pour LOUPE.0. 

LOGO. LOUPE, : Images HGR. 
IM.LOUPE 

Lisex page 35 comment utrliser la demo. 



DEMO.LOUPE 



100 REM DEMO.LOUPE 

110 REM RJOST (C) 1986 

120 TEXT ; HOME : PRINT "DEMONSTRA 
TION DE LA LOUPE APPLE" 

130 PRINT: PRINT 

140 IMP = 1 

150 D$ = CHR$(4) 

160 PRINT D$"BLOAD LOUPE.0" 

170 ONERR GOTO 190 

180 PRINT D$"BLOAD GF": GOTO 200: REM 
GF EST LE PROGRAMME DE HARDCOPY 
DE LA DISQUETTE IMAGEWRITER TOOL 
KIT (DOS 3.3). 

190 POKE 21 6,0: IMP = 

200 LOUPE = 35433:SWAP = 35551 

210 INPUT "NOM DE L'JMAGE ";N$: IF N$ 
= THEN END 

220 HGR; POKE - 16302,0 

230 PRINT D$"BLOAD "N$",A$2000" 

240 CALL 35328: REM INITIALISE CERTAINS 
POINTEURS 

245 CALL 35367: REM APPEL COMM ANDES 

250 TEXT 

260 IF IMP = THEN 390 



270 PRINT "VOULEZ-VOUS IMPRIMER 
L'IMAGE (O/N) ? ";: GET R$: PRINT R$: 
IFR$<> "0" THEN 390 

290 PRINT D$"PR£1" 

300 PRINT CHR$ (27) -f CHR$ (78);: REM 
CARACTERES PICA 

310 PRINT CHR$ (27) + CHR$ (118);: REM 
POSITIONNE LE HAUT DE PAGE 

320 PRINT CHR$ (27) + CHR$ (62);: REM 
MODE UNIDIRECTIONNEL 

330 CALL LOUPE 

340 POKE 6,1: POKE 7,7: CALL 36864: REM 
HARDCOPY : IMPRIMANTE EN SLOT 1 , 
MODE DOUBLE GRANDEUR. 

350 PRINT CHR$ (27) + CHR$ (114);: PRINT 
CHR$ (31) + "1";: PRINT CHR$ (27) + 
CHR$ (102);: REM DEROULEMENT 
INVERSE + SAUT DE UNE LIGNE + 
RETOUR AU DEROULEMENT NORMAL 

360 CALL SWAP 

370 POKE 6,1 : POKE 7,7: CALL 36864 

380 PRINT: PRINT D$"PR£0" 

390 TEXT : END (suite de l artide page 28) 
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CREATABHCR 



70 REM PROGRAMME DE CREATION DES 
TABLES DES ADRESSES HAUTE 
RESOLUTION 

11 REM UTILISEES PAR LE PROGRAMME 
LOUPE. 

1 5 FOR I = TO 84: READ X; POKE 768 + 
l,X: NEXT 

20 Z = 35880 

30 POKE 230,32 

40 FORI = TO 191 

50 CALL 768 j 

60 POKE 2 + !, PEEK (6): REM OCTETS BAS 

62 POKE Z + 192 + I, PEEK (7); REM 
OCTETS HAUTS PAGE 1 



64 POKE Z + 384 + I, PEEK (7) + 32; 
REM OCTETS HAUTS PAGE 2 

66 POKE Z + 576 + I, PEEK (7) + 64: 
REM OCTETS HAUTS PAGE 3 

70 NEXT 

2000 DATA 32, 245,230,32,11,3,133,6,132,7, 
96,138,74,74,74,168,185,34,372,138, 
41,7,10,10,24 

2010 DATA 121,58,3,101,230,168,104,96,0, 
128,0,128,0,128,0,128,40,168,40,168, 
40,168,40,168 

2020 DATA 80,208,80,208,80,208,80,208,0, 
0,1,1,2,2,3,3,0,0,1,1,2,2,3,3,0,0,1,1,2, 
2,3,3,0,0,0,0 ■ 



LOUPE 



PROGRAM M E SOURCE 

ASSEMBLE AVEC PROCODE a partir d'EDASM 



1 


* 






14 


XI 


EQU 


*EB 






2 


* LOUPE 






15 


X2 


EQU 


SEC 






3 


* 






16 


Yi 


EQU 


$ED 






4 


* <C> 1986 R.Jost 


17 


Y2 


EQU 


$EE 






5 
6 


* 

+ 






18 

19 


AIL 
A3 H 


EQU 
EQU 


$3C 
$3D 






7 

r 


+ 






20 


A2L 


EQU 


$3E 






8 


21 


EQU 


$06 


21 


A2H 


EQU 


$3F 






9 


Z2 


EQU 


$07 


22 


A3L 


EQU 


$40 




Avec EDASM 


10 


PAGE 


EQU 


$09 


23 


A3H 


EQU 


$41 




de Apple, 


11 


DEPART 


EQU 


$18 


24 


A4L 


EQU 


$42 




remplacez 


12 


-iRRWEE 


EQU 


$1A 


25 


A4H 


EQU 


$43 




('instruction DA 


13 


ARR1VEE2 


EQU 


$1C 


26 


* 








de la ligne 323 
par DW. 


27 


TAB1L 


EQU 


$8C28 


; octets 


_a- des 


adr . 


des 1 i qnes 




28 


TAB1H 


EQU 


$8CE8 


; octets 


h a u t s 4 


page 


1 




29 


TAB2H 


EQU 


$8DA8 


; octets 


hauts , 


page 


2 




30 


TAB3H 


EQU 


$8E68 


: octets 


h a u t s f 


page 


3 




31 




















32 


KBD 


EQU 


fCOOO 


i teste 1 


e c 1 av t er 






33 


KBDSTRB 


EQU 


$C010 


j STROBE 










34 


TXTCLR 


EQU 


$C050 




Mectionne mode graphique 




35 


M1XCLR 


EQU 


$C052 


; p 


e i n £ 


cran 









28 



GUY-HACHETTE 











36 


LQWSCE 


EQU 


$C054 










37 
38 


MI SCR 
HIRES 


EQU 

EQU 


$C055 
•IC057 










39 


NEWSTT 


EQU 


$D7D2 










40 


# 














41 


it 














42 




ORG 


-ISA00 










43 


l 






8A00 : 








44 




LDX 


£0 


BA02: 








45 




LDA 


TAB1 L ,X 


8A05: 








46 




STA 


AIL 


8AQ7: 


85 


40 




47 




STA 


A3L 


BAD?: 


BD 


A3 


BD 


48 




LDA 


TAB2H ,X 


8AQC : 


85 


3D 




49 




STA 


A1H 


BADE: 


BD 


68 


8E 


50 




LDA 


TAB3H ,X 


0"i ill 


85 


41 




52 




CTA 

b 1 A 


AdH 


BA13: 


A2 


BF 




53 




LDX 


£191 


8A15: 
8A18- 


BQ 






54 
55 




LDA 
STA 


TA81L,X 
A2L 


8A1A: 


85 


42 




56 




STA 


A4L 


8A1C; 


BD A8 


80 


57 




LDA 


TAB2H .X 


OR]? S 








58 




Ml 

STA 


V 1\\ \ 

% ni ^ 

A2H 


8A21 ; 




68 


8E 


59 




LDA 


TA83H,X 


8A24: 




43 




60 




STA 


A4H 


8A26: 








61 
62 
63 




RTS 












64 


* Corwnandes 












65 








8A27: 


AO 






66 


TEST 


LDA 


KBD 


8A2A: 








67 




BPL 


TEST 


8A2C: 








68 




BIT 


KBDSTRB 


8A2F: 








69 




CMP 


£$9B 


OHJ i * 








70 




BNE 


HAUT 


RA 1 ^ • 
OHOi3 • 








71 




JMP 


NEWSTT 


OHOO i 








72 


HAUT 


CMP 


£$95 


QAQQ ■ 
OMOO ! 








73 




BNE 


BAS 


OnJH • 


20 


IE 


8B 


74 




JSR 


SCROLLUP 


QAQft . 

omoU ; 


C9 


88 




75 


BAS 


CMP 


£$88 


OA Q r , 


r\Cv 










M, 




8A41 : 




8E 


8B 


77 




JSR 


SCROLLDOUN 


8A44: 








78 


GR0S 


CMP 


£$CC 


8A46: 








79 




BNE 


ECH 


8A48: 








80 




JSR 


LOUPE 


8A46: 








81 


ECH 


CMP 


£$D3 


3A4D : 








82 




BNE 


rrlUC J 


8A4F: 


20 






S3 




JSR 


SWAP 


8A52: 








84 


PAGE1 


CMP 


£$BD 


8A54: 








85 




BNE 


CONT 


8A56: 








86 




JSR 


HGR 


8A59: 








87 


CONT 


CLC 




8A5A: 




CB 




88 

89 


* 


BCC 


TEST 



; page 1 

j page 2 

; hau te resol u t i on 

; retour au programme appelant 



{octet bas des adresses HGR 

; de la lere ligne page 2 
et de la lere 1 i gne page 3 
octet haut de l'adresse 



de la derniere ligne page 2 
et de 

la derniere ligne page 3 



i lit 1 e cl aw i er 

; <ESC> interrompt le scrolling 

; retour au pro. BASIC appelant 
; Fleche droite 

; Fleche gauche 

; Doupe 
; S)wap 
i RETURN 



; re tour obi i ge 
; au debut. 

(suite page 30} 
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LOUPE 



(PROGRAMME SOURCE : suite) 











90 
91 


* a-ff i che 1 a 


page 1 sans 


8A5C: 


2C 






92 


HGR 


BIT 


TXTCLR 


8A5F: 








93 




BIT 


MIXCLR 


8A62: 


2C 






94 




BIT 


LOUSCR 


8A65: 








95 




BIT 


HIRES 


8A68: 


60 






96 




RTS 












97 
















98 


* gross 


- 


mage page 1 










99 


* 






8A69: 


2C 


50 




100 


LOUPE 


BIT 


TXTCLR 


8A6C: 








101 




BIT 


MIXCLR 


8A6F: 








102 




BIT 


MISCR 


8A72: 








103 




BIT 


HIRES 


8A75: 


A c 






104 




LDX 


£400 


8A77: 


86 


EB 




105 




STX 


XI 


8A79: 


86 


ED 




106 




STX 


Yl 


8A7B: 


86 


06 




107 




STX 


21 


8A7D: 


A2 


CO 




108 




LDX 


£4 CO 


8A7F: 


86 


07 




109 




STX 


22 


8A81 : 


86 


EE 




110 




STX 


Y2 


8A83: 


A2 


20 




111 




LDX 


£420 


8A85: 


86 


09 




112 




STX 


PAGE 


8A87: 


A2 


28 




113 




LDX 


£428 


8A89: 


86 


EC 




114 




STX 


X2 


8A8Bi 


A6 


ED 




115 


LOUPE1 


LDX 


Yl 


8A8D: 


BD 


28 


8C 


116 




LDA 


TAB1L.X 


8A90: 


85 


18 




117 




STA 


DEPART 


8A92: 


BD 


E8 


8C 


118 




LDA 


TAB1H.X 


8A95: 


85 


19 




119 




STm 


DEPART+1 


8A97: 


A6 


06 




120 




LDX 


Zl 


8A99: 


BD 


28 


8C 


121 




LDA 


TAB1 L r X 


8A9Ci 


85 


1A 




122 




STA 


ARRIUEE 


8A9E: 


BD 


E8 


8C 


123 




LDA 


TAB1H,X 


8AA1 : 


18 






124 




CLC 




8AA2? 


65 


09 




125 




ADC 


PAGE 


8AA4: 


85 


16 




126 




STA 


ARRIUEE+1 


8AA6? 


E8 






127 




I NX 




8AA7 s 


86 


06 




128 




STX 


Zl 


8AA9: 


BD 


28 


8C 


129 




LDA 


TAB1L.X 


8AAC : 


85 


1C 




130 




STA 


ARRIUEE2 


8AAE: 


BD 


E8 


8C 


131 




LDA 


TA81H,X 


8AB1 : 








132 




CLC 




8A62: 


65 


09 




133 




ADC 


PAGE 


8AB4 1 


85 


ID 




134 




STA 


ARRIVEE2+1 


8AB6: 


A4 


EB 




135 




LDY 


XI 


8AB8: 


81 


18 




136 


L0UPE2 


LDA 


< DEPART ),Y 


8A8A: 


91 


1A 




137 




STA 


CARRIUEE) , 


mBti 


91 


1C 




138 




STA 


CARRIUEE2) 


8ABE 1 


C8 






139 




I NY 




8ABF: 


C4 


EC 




140 




CPY 


X2 


8AC1 ; 


DO 


F5 




141 




BNE 


L0UPE2 



selectionne ie mode graphtque 
p 1 e i ne page 
num£ro 1 

et haute resolution 



1 <stockaqe entre 44000 et 47FFF) 



selectionne le mode graphique 
p 1 e i n 4cr an 
page 2 

haute resolution 
r n i t i a 1 i sat i on 



; 192 I 1 gnes 

; page 1 d'abord 

; 4D colonnes 

; prem i ere 1 i gne 

I recherche son adresse 



; premi ere 1 i gne de 
; 1 * image dt 1 at£e 



; en page 2 



; la ligne est d£doubl£e 



lere colonne 



octet suivant 
1 i gne comp 1 e te ? 
non t on boucle 



GUY-HACHETTE 



8AC3 


i E6 


06 




142 


INC 


21 




; ou i , on passe 


8AC5: E6 


ED 




143 


INC 


Yl 


: a la 1 i one su i van te 


8AC7; 


ED 




144 


LDA 


Yl 






8AC9: 


60 




145 


CMP 


£*6Q 




IFIUIllfr p dy v J Talur r 


8ACB 


* DO 


08 




146 


BNE 


LOUPE3 




; n on 


BACD: 


09 




147 


LDA 


PAGE 




| ou i , i 1 


8ACF 


: 18 






148 


CLC 






; faut rnaintenant 


8AD0 : 


20 




149 


ADC 


£$20 




transferer dans la 


8AD2 s 


09 




150 


STA 


PAGE 




page 3 <S6000-7FFF) . 


8AD4 


; A9 


00 




351 


LDA 


£$00 




et on repart a 


BAD6: 


06 




152 


STA 


21 




; 1 a prern i £re 1 i gne 


8AD8: A5 


ED 




153 


L0UPE3 LDA 


Yl 




8ADA 


: r s 


EE 




3 54 


CMP 


Y2 




j toutes Tes lignes -faites' 5 


BADC: DO 


AD 




155 


BNE 


LOUPE1 




non 


BADE: 60 






156 


RTS 






; terming 










157 


* 
















158 


* ^change les 


pages 2 et 


3 










159 


1 








8ADF 


: A2 


00 




160 


SUAP LDX 


r*QQ 




initial i se 


8AE1 


86 


EB 




161 


STX 


XI 




lere colonne 


8AE3 


i 86 


ED 




162 


STX 


Yl 




1 ere 1 i gne 


8AE5 


. A2 


28 




163 


LDX 


£$ 28 




40= 


8AE7 


: 86 


EC 




164 


STX 


X2 




derniere colonne+3 


8AE9 


A2 


CO 




165 


LDX 


£*CQ 




1 92 1 i gne 5= 


8AEB 


: 86 


EE 




166 


STX 


Y2 




dern i ere 1 i gne + 1 


8AED 


! A2 


40 




167 


LDX 


£$40 




page 2 


8AEF 


: 86 


09 




168 


STX 


PAGE 




8AF1 


A6 


ED 




169 


SLJAP1 LDX 


Yl 




on commence, ligne 


8AF3 


■ BD 


28 


8C 


170 


LDA 


TAB1L ,X 




cherche 1'adresse 


8AF6 


85 


18 




171 


STA 


DEPART 






8AF8 


85 


1A 




172 


STA 


ARRIVEE 






gnrH 


ou 


A8 


8D 


173 


LDA 


TAB2H ,X 






8AFD 


85 


1 9 




174 


STA 


DEPART* 1 




octet de depart 


8AFF 


BD 


68 


8E 


175 


LDA 


TAB3H ,X 




8802 


85 


1 8 




176 


STA 


ARRIUEE+1 




adresse d'arriu^e 


8B04 


A4 


EB 




177 


LDY 


XI 




premiere colonne 


8806 


Bl 


1 8 




178 


SWAP 2 LDA 


< DEPART) ,Y 




on bal axe la 1 i gne 


8B08 


48 






179 


PHA 






sauue dans la pile 


SB09 


Bl 


1A 




180 


LDA 


(ARRIUEE > ,Y 




; charge de la page arrive> 


8B08 


91 


18 




181 


STA 


< DEPART), Y 




stocke dans la page depart 


8B0D 


68 






182 


PLA 




; rgcupfcre de la pile 


8B0E 


91 


1A 




183 


STA 


CARRIUEE) ,Y 




; stocke dans la page arrived 


8810 








184 


I NY 






on continue 


8B11 


C4 


EC 




185 


CPY 


X2 




jusqu'a la derniere 


8B13 


DO 


Fl 




186 


BNE 


SUAP 2 




col onne . 


8B15. 


E6 


ED 




187 


INC 


Yl 




1 i gne su i vante ? 


8B17 


A5 


ED 




188 


LDA 


Yl 




8B19 


r s 


EE 




189 


CMP 


Y2 






8B1B 




D4 




190 


BNE 


SWAP1 




ou i , on n'a pas termine 1 


8B1D 


60 






1 91 
192 
193 
194 


RTS 

* d£rou 1 emen t 


C scro I 1 i ng> 




c 'est f i n i . 

vers le haut 










195 


* 
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LOUPE 


(PROGRAMME SOURCE : suite) 










196 


* on stocke 


1 a lere 1 i gne 


de la page 2 dans !e tampon 


8B 1 E : 


Ml) 


00 




197 


SCROLLUP 


LDY 


£0 ; 


on commence par la colonne 


8B20 : 


Bl 


3C 




198 


L1GNE1 


LDA 


(A1L),Y ; 


charge un octet de la ligne 


8B22 : 


99 


FE 




19? 




STA 


TAMPON, Y ; 


et sauve dans le tampon 


8B25: 


C3 






200 




I NY 


; 


bal aye la ligne 


8B26: 


CO 


28 




201 




CPY 


£40 ; 


jusqu'au bout 


8B28: 


DO 


F6 




202 

203 




BNE 


L1GNE1 

5 




8B2A: 


A2 







204 




LDX 


£0 ; 


1 i gne 


8B2C : 


BD 


28 


8C 


205 


EC RANI 


LDA 


TAB1L,X ; 


on cop i e la 1 i gne n 


8B2F j 


85 


IA 




206 




STA 


ARRIVEE 




8B31; 


BD 


A8 


8D 


207 




LDA 


TAB2H ,X 




SB34: 


35 


IB 




208 




STA 


ARRIUEE+1 




8B36: 


E8 






209 




I NX 






8B37: 


BD 


28 


3C 


230 




LDA 


TAB1L,X 5 


dans 1 a 1 i gne n-1 


BB3A: 


85 


18 




211 




STA 


DEPART 




8B3C: 


BD 


A8 


8D 


212 




LDA 


TAB2H ,X 




8B3F: 


85 


19 




213 




STA 


DEPART+ 1 




8B41 : 


AO 


00 




214 




LDY 


£0 




8B43: 


Bl 


18 




215 


LIGNES1 


LDA 


( DEPART) t Y 




8B45: 


91 


1A 




216 




STA 


(ARRIVEE) ,Y 




8B47: 


C8 






217 




I NY 






3B48: 


CO 


28 




218 




CPY 


£40 




8B4A: 


DO 


F7 




219 




BNE 


LIGNES1 




3B4C: 


EO 


BF 




220 




CPX 


£191 ; 


et cec i pour 1 es 192 


8B4E: 


DO 


DC 




221 
222 




BNE 


EC RANI ; 

; 


1 i gnes de 1 a page 2 


8B5D: 








223 




LDY 


£0 f 


la lfcre 1 igne de 1 a 


8B52: 




40 




224 


DLIGNE1 


LDA 


<A3L),Y j 


page 3 est copied 


8B54: 








225 




STA 


<A2L),Y ; 


dans 1 a dern i ere 1 i gne 


3B56: 








226 




I NY 


i 


de la page 2, 


8B57: 


CO 


2B 




227 




CPY 


£40 




8B59: 


DO 


F7 




228 
229 




BNE 


DL1GNE1 

5 




8B5B: 









230 




LDX 


£0 ; 


on trauaille ma in tenant 


8B5Di 








231 


ECRAN2 


LDA 


TAB1 L ,X ; 


sur la page 3 


8B60: 


35 


1A 




232 




STA 


ARRIUEE 




8B62: 


BD 


68 


3E 


233 




LDA 


TAB3H ,X 




3B65: 


35 


IB 




234 




STA 


ARR1VEE+1 




3B67: 


E3 






235 




I NX 






866 8 : 


BD 


28 




236 




LDA 


TAB1 L|X 




8B6B: 


85 


18 




237 




STA 


DEPART 




8B6D : 


BD 


68 




238 




LDA 


TAB3H ,X 




8B70 : 


85 


1 9 




239 




STA 


DEPART +1 




3B72r 


AO 


00 




240 




LDY 


£0 




8B74: 


Bl 


IS 




241 


LIGNES2 


LDA 


< DEPART) ,Y 




8B76: 


91 






242 




STA 


■ARRIYEE) ,Y 




8B78: 


C8 






243 




I NY 






367?: 








244 




CPY 


£40 




8B7B: 


DO 


F7 




245 




BNE 


L1GNES2 




8B7D: 


EO 


BF 




246 




CPX 


£191 




8B7F: 


DO 


DC 




247 
248 




BNE 


EC RAN 2 





32 



GUY-HACHETTE 



8B81 : 


AO 


00 




249 


LDY 


£0 


3B83: 


B9 


FE 


8B 


250 


DLIGNE2 LDA 


TAMPON, Y 


8B86: 








251 


3TA 


<A4L) ,Y 


5-688 : 








252 


1 NY 




8B89: 


CO 






253 


CPY 


£40 


8B8B: 








254 


BNE 


DLIGNE2 


8B8D: 








255 


RTS 












256 


i 












257 


* De>ou 1 ffftCfl t 


vers Je bas 










258 






8B8E : 








255 


SCROLLDOWN LDY £0 


8690: 


Bl 






260 


LIGNE191 LDA 


<A2L) ,Y 


SB92: 








261 


STA 


TAMPON ,Y 


SB*5\ 








262 


I NY 




8B*6: 








263 


CPY 


£40 


8B98: 








264 


BNE 


LIGt4E191 










265 






3B9A: 


A2 


BF 




266 


LOX 


£191 


BB9t : 


BD 


28 


8C 


267 


ECRAN1D LDA 


TAB1 L ,X 


8B9F: 


gc 


1A 




268 


STA 


ARRIUEE 


8BA1 i 






BD 


269 


LDA 


TAB2H ,X 


8BA4: 








270 


STA 


ARRIUEE+1 


36A6: 


Cm 






271 


DEX 




3BA7: 








272 


LDA 


TAB1 L ,X 


3BAA: 








273 


STA 


DEPART 


3BAC: 


BD 


Ao 




274 


LDA 


TAB2H ,X 










275 


STA 


DEPART* ! 


3BB1 : 








276 


LDY 


£0 


8BB3: 








277 


LIGNES1D LDA 


< DEPART) ,Y 


8BB5; 








278 


STA 


< ARRIVEE) ,Y 


8BB7: 








279 


I NY 




BBBSr 


CO 


28 




280 


CPY 


£40 


8BBA: 








281 


BNE 


LI6NES1D 


8BBC: 








282 


CPX 


£0 


8BBE: 








283 


BNE 


ECRAN1D 










284 






SBCO: 




D 




285 


LDY 


£0 


8BC2: 


Bl 


42 




286 


DL1GNE1D LDA 


<A4L) ,Y 


8BC4: 








287 


STA 


<A1L) ,Y 


8BC6: 








288 


I NY 




8BC7: 








239 


CPY 


£40 


8BC9: 


DO 






290 


BNE 


DLIGNE1D 










291 






3BCB r 


A2 


BF 




292 


LDX 


£191 


8BCD : 


BD 


28 


8C 


293 


EC RAN 2D LDA 


TAB1 L |X 


8BD0 : 


R c i 






294 


STA 


ARRIVEE 


8BD2: 








295 


LDA 


TAB3H ,X 


8BD5: 








296 


STA 


ARRIUEE+ 1 


8BD7: 








297 


DEX 




8BD3 : 








298 


LDA 


TAB1L.X 


8B08: 








299 


STA 


DEPART 


8BDD ! 








300 


LDA 


TAB3H ,X 


8BE0: 








301 


STA 


DEPART* 1 


8BE2: 








302 


LDY 


£0 


8BE4: 








303 


LI6NES2D LDA 


< DEPART) ,Y 



la ligne stockee dans 
le tampon est copie> 
dans la derniere ligne 
de la page 3. 



la dern 
1 a page 
dans le 



ere 1 i gne 
2 est cop 
tampon . 



de 
ee 



1 a 1 i gne rr 
est c op i e e 
n + 1 . 



de la 
dans 1 



page 2 

a 1 i gne 



la dern i ^re 1 i gne de 
1 a page 3 est cop i 6e 
dans 1 a l£re 1 i gne 
de la page 2. 



la 1 igne n de 1 a page 3 
est cop i ee dans 
la 1 i gne n+1 . 



(suite page 34) 
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LOUPE 


(PROGRAMME SOURCE 


8BE6: 


91 


1A 


304 




STA 


(ARRIVEE) ( Y 


8BE8 i 


C8 




305 




I NY 




8BE9: 


CO 


28 


306 




CPY 


£40 


8BEB: 


DO 


F7 


307 




BNE 


LIGNES2D 


88E0: 


EO 


00 


308 




CPX 


£0 


8BEF; 


DO 


DC 


309 




BNE 


ECRAN2D 








310 








8BF1 : 


AO 


00 


31 1 




LDY 


£0 ; le ta 


8BF3: 


B9 


FE 8B 


312 


DL1GNE2D 


LDA 


TAMPON , Y ; dans 


8BF6: 


91 


40 


313 




STA 


(A3L) .Y : de 1 a 


8BF8: 


C6 




314 




I NY 




8BF9: 


CO 


28 


315 




CPY 


£40 


8BFB: 


DO 


F6 


31 6 




BNE 


DLI GNE2D 








317 






■ 


BBFD : 


60 




31 B 














319 














320 


1 












321 


* tampon 












322 


* 






8BFE: 
















00 




323 


TAMPON 


DA 


$00,$ 03 








324 


* 












325 


* 












326 


* e'est 


i c i 


que c onwn eneent les t 



la 1 ere 
page 3. 



] gne 




Table des svmboles ordre alphabet ique 



-A1H .$0Q3D 

-A3H $0041 

-ARRIMEE . . .$0Q1A 
-DEPART. . , .$0018 
-DLIGNE2D. .$8BF3 
-ECRAN2. . . .$8B5D 

-H6R. $8A5C 

-LIGNE1 $8B2G 

-LIGNES2. . .$9B74 
-L0UPE2 . , , .$8AB8 

-MIXCLR $C052 

-SCROLLDOU .S8B8E 

-SWAP2 $8B06 

-TAB3H $8E68 

-XI $00EB 

-Zl . .$0006 



-AIL *0Cf3C 

-A3L $0040 

-ARR1YEE2. .$00 1C 
-DlIGNE! . . .$8B52 

-ECH $8A4E 

-ECRAN2D . . .$8BCD 

-HIRES $C057 

-L1GNE191 . .$8B90 
-LIGNES2D. .$8BE4 
-L0UPE3 . . . ,$8AD8 

-NELJSTT $D7D2 

-SCROLLUP. ,$SB1E 

-TAB1H $8CE8 

-TAMPON . , . ,$8BFE 

-X2 $00EC 

-22 $0007 



-A2H $Q03F 

-A4H $0043 

-BAS. $8A3D 

-DLI6NE1D. .$8BC2 

-ECRAN1 $8B2C 

-GROS S3A44 

-K6D $C000 

-LIGNES1 . . .$8B43 

-LOUPE $8A69 

-LOWSCR $C054 

-PAGE $0009 

-SWAP $3ADF 

-TAB1L S8C28 

-TEST. . . . . .$8A27 

-Yl $00ED 



-A2L $003E 

-A4L .$0042 

-COM" $8A59 

-DLIGNE2. . .$8B83 
-ECRAN1D. . .$8B9C 

-HAUT $8A36 

-KBDSTPB. . ,$C010 
-LIGNES1D. .$8BB3 

-LOUPE1 $8A8B 

-MISCR $C055 

-PAGE1 $8A52 

-SUAP1 $8AF1 

-TAB2H $8DA8 

-TXTCLR. . . .$C050 
-Y2 $00EE 
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GUY-HACHETTE 



LOUPE 



/TM1 7/LOUPE/LOUPE .A.AS8AQ0 , LS0202 



Pour celles et 
ceux qui 
n'ont pas 
dassembleur, 
mais possedent 
la disquette 
SIGNATURE 
d'Yvan KCENIG. 



Attention ! 
n'oubliez pas de 
completer 
LOUPE.A avec 
la table generee 
par la routine 
Basic 

CREATABHGR 
(page 28) ! 



SAOO : 


A2 


00 


BD 


28 


8C 


85 


3C 


85 


40 


BD 


A8 


8D 


85 


3D 


BD 


68 




8AI0 : 


8E 


35 


41 


A2 


BF 


BD 


28 


8C 


85 


3E 


35 


42 


BD 


A3 


3D 


85 


3227 


3A20 : 


3F 


BD 


63 


8E 


85 


43 


6Q 


AD 


00 


CO 


10 


FB 


2C 


10 


CO 


C9 




3A30 ! 


9B 


DO 


03 


4C 


D2 


D7 


C9 


95 


DO 


03 


20 


IE 


SB 


C9 


38 


DO 


B57E 


8A40: 


C3 


20 


8E 


8B 


C9 


CC 


DO 


03 


20 


69 


SA 


C9 


D3 


DO 


03 


2C 




8A50 : 


DF 


8A 


C9 


8D 


DO 


03 


20 


5C 


3A 


18 


90 


CB 


2C 


50 


CO 


2C 


B37 "< 


SA60: 


52 


CO 


2C 


54 


CO 


2C 


57 


CO 


60 


2C 


50 


CO 


2C 


52 


CO 


2C 


40?B 


3A70i 


55 


CO 


2C 


57 


CO 


A2 


00 


86 


EB 


86 


ED 


36 


Q.- 


A2 


CO 


36 




BABO: 


07 


86 


EE 


A2 


20 


36 


09 


m2 


28 


86 


EC 


A6 


ED 


BD 


23 


8C 




8A9Q i 


85 


18 


BD 


E3 


8C 


85 


19 


A6 


06 


BD 


28 


8C 


35 


1A 


BD 


ES 


32CD 


SAAO: 


8C 


18 


65 


09 


35 


IB 


E8 


86 


06 


BD 


28 


8C 


85 


1C 


BD 


EB 


B9DD 


3AB0: 


8C 


18 


65 


09 


85 


ID 


A4 


EB 


81 


18 


91 


1A 


91 


1C 


CB 


C4 


D8F0 


3AC0: 


EC 


DO 


F5 


E6 


06 


E6 


ED 


A5 


ED 


C9 


60 


DO 


OB 


A5 


09 


IB 




BADO: 


69 


20 


85 


09 


A9 


00 


85 


06 


A5 


ED 


15 


EE 


DO 


AD 


60 


A2 


81 OF 


3AE0: 


00 


86 


EB 


86 


ED 


A2 


23 


86 


EC 


A2 


CO 


36 


EE 


A2 


40 


86 


BF5E 


3AF0: 


09 


A6 


ED 


BD 


28 


8C 


85 


18 


85 


1A 


BD 


A3 


8D 


85 


19 


80 


70 9 a 


8B00: 


63 


8E 


85 


IB 


A4 


EB 


Bl 


18 


48 


Bl 


1A 


91 


18 


68 


91 


1A 


F9BD 


3810 : 


C8 


C4 


EC 


DO 


Fl 


E6 


ED 


A5 


ED 


C5 


EE 


DO 


D4 


60 


AO 


00 




8B20: 


Bl 


3C 


99 


FE 


3B 


C3 


CO 


28 


DO 


F6 


A2 


00 


BD 


28 


8C 


85 


9E1D 


3B30: 


1A 


BD 


A8 


8D 


85 


IB 


E8 


BD 


28 


8C 


85 


18 


BD 


A8 


SD 


85 


2119 


8B40: 


19 


AO 


00 


Bl 


IB 


91 


1A 


C8 


CO 


28 


DO 


F7 


EO 


BF 


DO 


DC 


F3EF 


8B50: 


AO 


00 


Bl 


40 


91 


3E 


C8 


CO 


28 


DO 


F7 


A2 


00 


BD 


28 


8C 


96EA 


8B60: 


85 


1A 


BD 


68 


8E 


35 


IB 


E8 


BD 


23 


8C 


85 


18 


BD 


68 


3E 


D69B 


3B70 : 


35 


19 


AO 


00 


Bl 


18 


91 


1A 


C8 


CO 


28 


DO 


F7 


EO 


8F 


DO 


F898 


8B80: 


DC 


AO 


00 


B9 


FE 


3B 


91 


42 


C3 


CO 


28 


DO 


F6 


60 


AO 


00 


BD07 


8B90 : 


Bl 


3E 


99 


FE 


BB 




CO 


28 


DO 


F6 


A2 


BF 


BD 


28 


8C 


85 


A3DE 


3BA0: 


1A 


BD 


A3 


8D 


35 


IB 


CA 


BD 


28 


8C 


85 


18 


BD 


A3 


8D 


85 


93FB 


8BB0 : 


19 


AO 


00 


Bl 


13 


91 


1A 


C8 


CO 


23 


DO 


F7 


EO 


00 


DO 


DC 


9930 


8BC0: 


AO 


00 


Bl 


42 


91 


3C 


C8 


CO 


28 


DO 


F7 


A2 


BF 


BD 


28 


8C 


64A9 


8BD0 : 


85 


1A 


BD 


68 


3E 


35 


IB 


CA 


BD 


28 


8C 


85 


18 


BD 


68 


8E 


6E7D 


8BE0: 


85 


19 


AO 


00 


Bl 


18 


91 


1A 


C8 


CO 


28 


DO 


F7 


EO 


00 


DO 


0ED9 


8BF0: 


DC 


AO 


00 


B9 


FE 


8E 


91 


40 


C8 


CO 


28 


DO 


F6 


60 


00 


00 


'365 


3C00: 


03 


00 






























1203 



DEMO-LOUPE 



Lorsque vous 
utiliserez la 
routine, a partir du 
STARTUP de notre 
disquette, 
choisissez I'option 
IM. LOUPE (c'est 
['image d-contre) 
et essayez les 
commandes 
indiquees par ce 
tableau ! 

tutiimiMPHHiMi 
TREMPLIN MICRO 



COMMANDES POUR DEMO . LOUPE 

L' MGOE LOUPE 

BASCULE ENTRE LES DEUX ECRANS 
■*•< DEROULE L'ECRAN UERS LE HAUT 
«-» DEROULE L'ECRAN UERS LE BAS 
ESC- RETOUR AU BASIC, 
RETURN : RETOUR A L'ECRAN NORMAL 

Impression sur INAGEWRITER ; 

. 1* programme GF de I MAGEWR I TER TOOLKIT 
COOS 3.3) doit it-re sur uotra disquette. 
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I N I TIATION M Jff WAMl 



NESTOR 




xDEUX 



Routine uniquement destinee d vous 
montrer comment il est possible de mul- 
tiplier A par B... pour retrouver le resul- 
tat dans C, etont entendu que ABC peu- 
vent etre du type A(0) A(l) A(2) aussi 
bien que A(4) A(5) A(6)... 



TEXT : NORMAL : HOME : GOSUB 200 
VTAB 9: PRINT "RENTREZ DEUX CHIFFRES ": PRINT 
INPUT "k[Q) — » ";A|0) 
INPUT "A(l}-» ";A(1): PRINT 
CALL 768, A(0): PRINT : LIST 150 
150 PRINT: PRINT A(2) 

160 VTAB 22: PRINT "(E)ncore (M)enu [F)in ";: GET R$ 
170 IF R$ = T OR RS = V THEN HOME : GOTO 110 



110 
120 
130 
140 



1 75 IF RS = "M" OR RS = W 1 THEN PRINT CHRS (4)"RUN 
MENU" 

1 80 IF R$ = T OR RS = "f" THEN HOME : END 
190 GOTO 160 

200 FOR I = 768 TO 828: READ R: POKE I, R; NEXT : RETURN 

210 DATA 32,190,222,165,184,72,165,185,72,32,227,223,1^3,6, 
132,7,104.133,185,104.133,134.32,103,221 .32.99,235,164. 
7,165.6,24,105,5,144,1,200.32,249,234,32,130,233, 
164,7,165,6,24,105,10,170,144,1,200,32,45,235,76,46,237 



300 : 


20 


BE 


DE 


J5R 


SDEBE 


303 : 


A5 


B8 




LDA 


$B8 


305 : 


48 






PHA 




306 : 


A5 


B9 




LDA 


$B9 


308 : 


48 






PHA 




309 : 


20 


E3 


DF 


JSR 


$DFE3 


30C : 


85 


06 




STA 


$06 


30E : 


84 


07 




STY 


$07 


310 : 


68 






PLA 




311 : 


85 


B9 




STA 


$89 


313 : 


68 






PLA 




314 : 


85 


BB 




STA 


$B8 


316 : 


20 


67 


DD 


JSR 


SDD67 


319 : 


20 


63 


EB 


JSR 


SEB63 


31C : 


A4 


07 




LDY 


$07 


31E : 


A5 


06 




LDA 


$06 


320 : 


18 






CLC 




321 : 


69 


05 




ADC 


£$05 


323 : 


90 


01 




BCC 


$0326 


325 : 


C8 






INY 




326 : 


20 


F9 


EA 


JSR 


$EAF9 


329 : 


20 


82 


E9 


JSR 


$E982 


32C : 


A4 


07 




LDY 


$07 


32E : 


A5 


06 




LDA 


$06 


330 : 


18 






CLC 




331 : 


69 


OA 




ADC 


£$0A 


333 : 


AA 






TAX 




334 : 


90 


01 




BCC 


$0337 


336 : 


C8 






INY 




337 : 


20 


20 


EB 


JSR 


$EB2D 


33A: 


4C 


2E 


ED 


JMP 


$ED2E 



] 



Teste la presence de la virgule. 

Position de TXTPTR (adresse du dernier caractere obtenu par 
CHRGET) sauvegardee sur la pile. 

PTRGET recherche la variable (ici A(0)). 

Son adresse est en A et Y. On la sauve en $6,7. 



Restauration de CHRGET. 

FRNUAA evalue la formule pointee par TXTPTR et la met dans FAC. 
FAC dans ARG. 

Partie haute de i'adresse de A(0) dans Y. 
Partie basse + 5 dans A pour adresse de A(l ). 

S'il y a retenue, la partie haute (Y) est incrementee. 

MOVFM place le nombre pointe par Y,A dans FAC. 
FMULTT multiple FAC par ARG. 
Adresse haute dans Y. 

Adresse basse majoree de $A (deux fois 5) dans X via A, pour 
adresse de A{2). 



Si retenue, on incremente la partie haute. 



AAOVMF transfere FAC vers le groupe de 5 octets pointe par X et Y. 
Affiche la valeur de FAC (resultat de la multiplication). ■ 
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GUY HACHETTE 



INITIATION 



PRODOS EXQUSIVEMENT 



NESTOR 



BL0UB.A 



Avec ProDOS, il suffif d'afficher le catalogue de la disquette pour connaitre le monde de BLOCKS FREE... 
mais il peut se reveler interessant, dans le cadre d'un programme, avant d'enregistrer des donnees, 
d'obtenir ce meme renseignement sons pour autant passer par le catalogue... d'ou cette routine. 

Appel classique du MLI. 
Commande READ BLOCK. 
Adresse de la liste des parametres. 

Nous allons utiliser deux adresses de la page pour y 
ecrire le nombre de blocs disponibles, 

Y pret. 

Lecture d'un octet. 



On passe les 8 bits en revue. 

Quand un bit est a 0, le bloc est occupe. 

Quand il est a 1 , il est libre. 

ASL pousse cheque bit dans la retenue et il suffit 
d'incrementer quand celle-ci est a 1 . 



Jusqu'd Y = 1 inclus. 

Curseur au debut de la ligne choisie. 

CLREOP efface jusqu'au bas de I'ecran. 

LINPTR affiche les deux octets de X et A (mode 
decimal). 

Retour. 

Table des parametres, pour ProDOS... qui en attend 3 : 

1 . DRIVE et SLOT $60 pour 6, $50 pour 5, etc. (voir pour 
DRIVE la routine BLOLIB V page suivante). 

2. Adresse du Buffer : ici $4000 

3. Numero du Bloc a lire ; ici 6 (BIP.MAP), 

BSAVE BLOLIB. A P A$3O0 t L$38 







nn 


RE 
Dr 


ICD 
















304 


wo 


19 








owo 


AQ 


nn 




i nA 

LUA 




308 


85 


vo 




3 1 M 


.puo 




OJ 


(11 




CT A 
O 1 A 




3ac 


AO 


C8 




LDY 


£$C8 


30E 


B9 


FF 


3F 


LDA 


$3FFF,Y 


31 1 


AO 


(17 




LUA 




o 1 J 


rt a 

UA 






ASL 




314 


90 


06 




BCC 


$031 C 


316 


E6 


06 




INC 


$06 


318 


DO 


02 




BNE 


$031 C 


31A 


E6 


07 




INC 


$07 


31C 


CA 






DEX 




31D 


10 


F4 




BPL 


$0313 


31F 


88 






DEY 




320 


DO 


EC 




BNE 


$O30E 


322 


A9 


16 




LDA 


£$16 


324 


20 


5B 


FB 


JSR 


$FB5B 


327 


20 


42 


FC 


JSR 


$FC42 


32A 


A6 


06 




LDX 


$06 


32C . 


A5 


07 




LDA 


$07 


32E : 


20 


24 


ED 


JSR 


$ED24 


331 : 


60 






RTS 




332 : 


03 










333 : 


60 










334 : 


00 


40 








336 : 


06 


00 









TREMPLIN MICRO 
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HMHMHHIHMiWfllfHIl 



INITIATION 



PRODOS EXQUSIVEMENT 



NESTOR 



BL0LIB.V 



Appel par CALL 768, S, D, X... ou S est le numero du 
SLOT, D celui du DRIVE et X la variable qui, au 
retour, contiendra le nombre de BLOCKS FREE... 



300 


20 


F5 


E6 


JSR 


$E6F5 


303 


8A 






TXA 




304 


0A 






ASL 




305 


OA 






ASL 




306 


OA 






ASL 




307 


OA 






ASL 




308 


48 






PHA 




309 


20 


F5 


E6 


JSR 


SE6F5 


30C 


8A 






TXA 




30D 


4A 






LSR 




30 E 


BO 


04 




BCS 


$0314 


31(7 


68 






PLA 




31 1 


09 


80 




ORA 


£$80 


313 


48 






PHA 




314 


66 






PLA 




315 


8D 


4C 


03 


STA 


$034C 


318 


20 


00 


BF 


JSR 


$BF00 


HID 

31 B 


80 










31D 


4B 


03 








31E 


A9 


00 




LDA 


£$00 


320 


85 


06 




STA 


$06 


322 


85 


07 




STA 


$07 


324 


AO 


C8 




LDY 


£$C8 


326 




FF 


3F 


LDA 


$3FFF,Y 


329 


A2 


07 




LDX 


£$07 




ft A 

OA 






ACI 

AoL 




32C 


Qfl 






err 




32E 


E6 


06 




INC 


$06 


330 


DO 


02 




BNE 


$0334 


332 


E6 


07 




INC 


$07 


334 


CA 






DEX 




335 




F4 




BPL 


$032B 


337 


88 






DEY 




338 


DO 


EC 




BNE 


$0326 


33A 


A4 


06 




LDY 


$06 


33C 


A5 


07 




LDA 


$07 


33E 


20 


F2 


E2 


JSR 


$E2F2 


341 




BE 


DE 


JSR 


$DEBE 


344 




E3 


DF 


JSR 


$DFE3 


347 


AA 






TAX 




348 


4C 


2D 


EB 


JMP 


$E82D 


34 B 
34 C 


03 
60 










34 D 


00 


40 








34F 




00 








38 













GETBYTC transmet (dans X) le numero du SLOT. 
On le passe dans A. 

Ou6devient $60, 5,,. $50, etc. 
SLOT sur la pile. 

Meme operation pour le numero de DRIVE. 

1 ou tombe dans la retenue. 
Si c'est un, rien a faire. 

Si c'est 0, il fout forcer le bit de la valeur SLOT a 



$60 devlent $E0 (01100000... 1110< 
_J Installation dans la liste des parametres. 
Appel du AALL 
$80: READ Block. 
Adresse des parametres. 



Preparation. 
Y pret. 



Voir BLOLIB.A 



GIVAYF rend flattont I'entier relatif dans A,Y (nbre de 
BLOCS). Resultat dans FAC. 

Teste la demiere virgule. 

Recherche la variable (son adresse est dans A,Y), 

A passe dans X. 

MOVMF transfere FAC dans la variable pointee par X et Y. 



Liste des parametres. 
(Voir BLOLIB.A page 37). 



BSAVE BlOllB.V.AS300.l$51 



GUY-HACHETTE 



LANGAGE POUR LE GS 



Guy-HACHETTE 



GS Basic 



IL ARRIVE... AVEC LES OUTILS 



AURAIS aime vous parler lon- 
guement du Basic qui, je 
1'espere fera bientot le bon- 
heur des possesseurs d'APPLE fIGS. 
Helas ! malgre une bonne vingtaine 
de coups de telephone dans toutes 
les directions, malgre la bonne 
volonte manifested par certains de 
mes interlocuteurs (merci tout de 
meme, Xavier Schott), je n'ai pos 
reussi a denicher la documentation 
(en anglais) qui occompagne norma- 
lement la disquette. Dommage ! 
L'evenement justif iait, a mes yeux du 
moins, un petit retard dans la mise 
envenfede TREMPLIN MICRO. A une 
epoque ou la Communication passe 
par une bonne Information des 
Medios, il ne semble pos que la 
Direction d'Apple France tienne reel- 
lement a utiliser cet excellent vehi- 
cule de l'informotion quest ia Presse 
techn ique et special isee. 

Helas ! d'outres responsables fran- 
cais partagent ce point de vue. On se 
contente de reunir les representants 
de la grande presse, a I'occasion de 
cocktails, petits dejeuners et autres 
manifestations bien parisiennes : 
petits fours, boissons fratches et (ou) 
alcoolisees,., speach de I'attachee 
de presse (si possible jeune et jolie] 
et discours du responsable des festi- 
vites. Tout cela aura peut-etre I'hon- 
neur de la television, justifiera quel- 
ques lignes dons deux ou trois quoti- 
diens nationaux... Bref, un true cer- 
tes bien ficele, dont je ne nte pos 

MMHHMHiPPiMHMMIHMMIl 



l utilite, mais dont je conteste la 
valeur sur le plan "information du 
client potentief",.. notre lecteur. 
J'aurai sans doute la doc du GS 
Basic dans quelques jours, en la 
payant bien entendu, mais trop 
tard pour vous en parler dans ce 
numero. 



Premier constat 



GS Basic fonctionne sous ProDOS 
16, le futur standard de I'Apple IIGS. 
Pour I'instant, sa duree de enlarge- 
ment reste exageree, mais la pro- 
chaine nouvelle version de ProDOS 
16 devrait ameliorer cela. 

L'editeur porait un peu lent, mais ce 



n'est semble-t-il qu'une illusion. En 
realite, il est difficile de perdre un 
caractere, meme en accelerant la 
frappe. Comme cela se passe avec 
APW, il y a memorisation des trois 
dernieres lignes, qu'il est facile de 
rappeler en appuyant sur la fleche 
correspondent 6 cette option. On 
peut alors inserer et supprimer a 
volonte dans la ligne, ce qui est evi- 
demment pratique. Nous nenvie- 
rons plus IBM sur ce point ! 
Visiblement, si ce nouveau Basic 
ressemble a notre ban vieil Apple- 
soft, il n'en a heureusement pas 
conserve les insuffisances les plus 
notoires. Nous en reparterons en 
detail dans le prochain numero de 
TREMPLIN MICRO... 
Parcontre, avec lui, vous aurez enfin 
acces — et facilement, si j'en juge 
par I'exemple figurant sur la dis- 
quette — , aux outils de I'Apple IIGS. 
A vous les fenetres, le graph isme, et 
tout le reste ! Ceci dit, ne vous leur- 
rez pas, ce n est pas tout simple, et 
le Basic par lui-meme se revelera 
relativement lent... pour s'accelerer 
quand la boite a outils prendra le 
reloi. Je vous mets I'eau a la bouche, 
pas vrai ? Croyez bien que je suis le 
premier a regretter de ne pas etre 
en mesure de vous en dire davan- 
tage. Rendez-vous le 3 janvier ! e n. 



Sous la Grande Halle de La Villette, duranf 3 jours 1/2 
Apple Expo a accueilli 44 136 visifeurs. 
Des 14 H le premier jour, puis des 10 h les suivonfs r 
I'affluence etait a son comble jusqu'a 19 h sur les stands 
des 170 exposanls. Cette affluence record etait d'ailleurs 
presivible o la lecture des chiffres de consultation du ser- 
veur sur Minitef. Sur lo tofalite du mois de septembre, le 
serveur a ete en connection 5332 fois, et I'ensemble du 
temps de consultations represente 577 heures. 
Pour la premiere fois le departement des Ressour- 
ces Humaines etait present a Apple Expo ofin de 
fovoriser la synergie entre les partenaires qui 
recrutent et les condidots porentiels. Plus de 70 offres d emplois ont ainsi ete 
afflehees de la part du r£seau Apple, plus de \QQ candidatures ont ete deposees 
pour Apple, ses concessionnaires et I'Apple Business School. 
Parmi les chiffres records signalons egalement celui realise por la boutique des "goo- 
dies" Apple : 689 QQQ F, qui demontre que I'engouement pour les objets marques 6 lo 
pomme ne se dement pas, et ce d'autant plus qu'une collection entierement nouvelle 
etait presentee, Enfin, au detour des allees ce ne sont pas moins de 11 tonnes de 
pommes qui ont et6 croquees pendant 3 jours 1/2 ! ■ 
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NESTOR 



MELANCEUR 



Comment rnelanger aleatoire* 
ment les N mots d'un fichier 
binoire (voir SAIStE — dans nos 
ROUTINES LM et MUL- 
TIE.SAISIE - dans nos NOU- 
VELLES ROUTINES ? 
Par exemple en utilisant 
MELANCEUR 

PRECAUTION : Votre fichier 
devra impera- 
tivement se terminer par LX2 
zeros (L - longueur d un mot, 
soit 8 zeros pour des mots de 4 
lettres). 



MEL.ESSAI 





MEL.BAS 




100 


D$ = CHR$ (4): PRINT D$"BLOAD MELANGEUR" 




no 


PRINT D$"PR£3' : PRINT : HOME 




120 


PRINT D$ "CATALOG" 




130 


PRINT : INPUT "TITRE A TRAITER ? ";T$: IF T$ = " 


" THEN END 


140 


INPUT "LONGUEUR DES MOTS ? ";L: IF NOT L THEN END 


150 


PRINT D$"BLOAD"T$ 




160 


CALL 768,L 




170 


A = L + 1 + ( PEEK (8) + PEEK (9) * 256) 




180 


LF = 1 + L * 2 + ( PEEK (25) + PEEK (26) * 256) 


-A 


190 


PRINT D$"BSAVE";T$ + ,J M";" 1 A";A;" I L";LF 




200 


PRINT DS' CATALOG" 




210 


PRINT 




220 


VTAB 23: PRINT "(M)ENU DE DISQUETTE (F)IN 


";: GET R$: 




VTAB 22: PRINT 




230 


IF R$ = "M" OR R$ = "m" THEN PRINT D$"RUN MENU.S6" 


240 


IF R$ <> "F" AND R$ O T THEN 220 




250 


HOME 


■ 



100 D$ = CHR$ (4): PRINT D$"BLOAD 
MELANGEUR" 

110 PRINT D$"PR£3": PRINT : HOME 

120 PRINT D$"BLOAD ESS" 

130 L = 5 

140 HOME 

150 CALL 768,L 

160 A = L + 1 + { PEEK (8) + PEEK 
(9) * 256) 

170 LF = 1 + ( PEEK (25) + PEEK 
(26) * 256) 

180 FORI = ATOA + L-1:M$ = M| + 
CHR$(PEEK(I)):NEXT 



190 N = N + 1:M$(N) = MS:M$ = m :A 
= A + L: IF A < LF THEN 180 

200 FOR I - 1 TO N: PRINT M$(l) r : NEXT 
210 PRINT: PRINT 

220 N = 0;$ = S 4-1 : IF S < 6 THEN 1 50 

230 VTAB 23: PRINT "(M)ENU DE DIS 
QUETTE (F)IN ";: GET R$: VTAB 22: 
PRINT 

240 IF R$ = "M" OR R$ - m" THEN 
PRINT D$"RUN MENU,S6" 

250 IF R$ <> "F" AND R$ < > T 
THEN 230 

260 HOME ■ 
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GUY-HACHETTE 



MELANGEUR 



POINTEURS 



$16 = Longueur d'un mot — $08*09 = Adresse de base du fichier (moins la longueur 
d'un mot et moins un octet) — $06-07 = Adresse du mot choisi aleatoirement — 



$19-1 A = Adresse du mot traite sequentiellement — $IB-1C = Nombre de mots moins deux. 



LONGUEUR DCS MOTS 



300 


20 


F5 


E6 


JSR 


E6F5 




303 


86 


18 




STX 


18 




one 


AD 


B9 


Bt 


LDA 


BEB9 






18 






CLC 








E5 


18 




SBC 


18 




inn 

JOB 


85 


08 




STA 


08 




30D 


85 


19 




STA 


19 




30F 


AD BA 


BE 


LDA 


BEBA 




312 


E9 


00 




SBC 


£00 




314 


85 


1A 




STA 


1A 




316 


85 


09 




STA 


09 




318 


AC 


C8 


BE 


LDY 


BEC8 


] 


31B 


AD C9 


BE 


LDA 


BEC9 




31E 


20 


F2 


E2 


JSR 


E2F2 




321 


20 


63 


EB 


JSR 


EB63 




324 


A4 


18 




LDY 


18 




326 


A9 


00 




LDA 


£00 




328 


20 


F2 


E2 


JSR 


E2F2 




32B 


20 


69 


EA 


JSR 


EA69 




32E 


20 


52 


E7 


JSR 


E752 





GETBYTC saure un caractere, puis appelle GETBYT et CONINT. La 
valeur envoyee par CALL est dans X. 



ADRESSE DU FICHIER 



La partie basse est diminuee de la longueur d'un mot + 1 (on annule 
la retenue, comme pour une addition, ce qui diminue le resultat d'un 
octet). 

Stockageen $8et$l9. 

La partie haute va en $9 et SI A. 

Sous DOS 3.3, on utiliserait $AA72 et $AA73 au lieu de $BEB9 BEBA. 

LONGUEUR DU FICHIER (reelle) 



GIVAYF rend flottant I'entier relatif de Y, A. 
MOVAF transfere FAC dons ARG. 

NOMBRE DE MOTS (mollis S» - 



] Longueur du mot dans Y. A = 0. 



I'entier relatif de Y,A devient flottant. 

FDIVT s'occupe de la division (resultat dans FAC). 

GETADR transforme FAC en 2 octets (dans Y r A). 



331 


85 


1C 


333 


98 




334 


38 




335 


E9 


03 


337 


85 


IB 


339 


B0 


02 


336 


C6 


1C 



STA 1 C Stockage de la partie haute dans $1 C 

TYA La partie basse passe dans A. 

SEC 1 

SBC £03 J Nombre de mots diminue de 3 unites. 

STA IB Stockage de la partie basse dans Si B. 

BCS 033DH n . , 

DEC 1 C J ** e nau * e aecrementee si necessaire. 



33D 


18 






CLC 




33E 


A5 


18 




LDA 


18 


340 


65 


19 




ADC 


19 


342 


85 


19 




STA 


19 


344 


90 


02 




BCC 


0346 


346 


E6 


1A 




INC 


1A 


348 


A9 


01 




LDA 


£01 


34A 


20 


B1 


EF 


JSR 


EFB1 


34D 

— 


20 


63 


EB 


JSR 


EB63 



Annulation de la retenue. 



Pointeurs de l adresse de traitement majores de la longueur d'un 
mot. La partie haute n'esf incrementee que s'il y a retenue. 



NOMBRE ALE AT O I RE 



MOT 



MRE 



] Entree speciale pour RND. 
MOVAF transfere FAC dans ARG. 



(suite page 42} 
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350 


A4 


IB 




LDY 


IB 


352 


A5 


1C 




LDA 


1C 


354 


20 


F2 


E2 


JSR 


E2F2 


357 


20 


82 


E9 


JSR 


E982 


ISA 


20 




FR 


j j n. 


FR^Tl 

L DUlJ 


35D 


20 


52 


E7 


JSR 


E752 


360 


C8 






INY 




361 


D0 


01 




BNE 


0364 ~i 


363 


1 A 






INC 


— 


364 


20 


F2 


E2 


JSR 


E2F2 


367 


20 


63 


EB 


JSR 


EB63 

— — — 


36A 


A4 


18 




LDY 


18 


36C 


A9 


00 




LDA 


£00 - 


36E 


20 


01 


E3 


JSR 


E301 


371 


20 


82 


E9 


JSR 


E982 


374 


20 


52 


E7 


JSR 


E752 


377 


48 






PHA 




378 


98 






TYA 




379 


18 






CLC 


— 1 


37A 


65 


08 




ADC 


08 


37C 


85 


06 




STA 


06 _ 


37E 


68 






PLA 




37F 


• 65 


09 




ADC 


09 


381 


85 


07 




STA 


07 


383 


: A4 


18 




LDY 


18 


385 


61 


19 




LDA 


(19),Y 


387 


F0 


12 




BEQ 


Q39B 


389 


: 48 






PHA 




38A 
38B 


• 88 
: D0 


F8 




DEY 
BNE 


0385 



Nombre de mots (toujours moms 3) dans Y et A. 

GIFAYF rend I'entier flottant. 

FMULTT se charge de multiplier ['argument par FAC 

AAOVAF transfere FAC dans ARG. 

FAC transform© en entier sur 2 octets, dans Y et A. 

Y = Y 4- 1 pour eviter leG. 

Si Y =0, il laut incrementer A (partie haute). 
(Attention ! pas de "1A" sur le vieux 6502 !). 
L'entier de Y, A devient (ou redevient ?) flottant. 
Toujours MOVAF (FAC dans ARG). 

ADRESSE OU MOT ALEATOIREMENT CHOISI — 

Longueur du mot dans Y A 

SGNFLT rend l'entier de Y f lottant. 

FMULTT multiplie ARG par FAC. 

GET ADR transforme FAC en entier sur 2 octets (Y,A). 

A est empile, 

Y passe dans A (partie basse de I'adresse}. 

Addition et mise a jour de I'adresse du mot choisi aleatoirement. 
A est recupere. 

Meme operation sur la partie haute de I'adresse. 



LECTURE D'UN MOT (ordre sequentiel > 

Longueur du mot dans Y, 

Lecture d un caractere. 

Si c'est un zero, le melange est termine. 

Octet empile. 

Y = Y - 1 (jusqu'a 1 inclus). 
Quond Y = 0, on arrete. 



38D : 


C8 




INY 




38E : 


Bl 


06 


LDA 


(06), Y 


390 : 


91 


19 


STA 


(19),Y 


392 : 


68 




PLA 




393 : 


91 


06 


5TA 


(06) ,Y 


395 : 


C4 


18 


CPY 


18 


397 : 


DO 


F4 


BNE 


038D 


399 : 


80 


A2 


BRA 


033D 


39B : 


60 




RTS 





Y = Y + 1 (au depart, Y =0+1), 

Lecture d'un caractere du mot choisi aleatoirement. 

Ecriture de I'octet du mot traite. 

Recuperation sur la pile. 

Remplacement. 

Si Y est egal a la longueur du mot, on passe au suivant 
continue la permutation, 

Retour au Basic. 



Sinon, on 



BSAVE MELANGEUR ( A$300,l$9C 



A PROPOS DE $BEB9-BEBA Sous ProDOS (voir la partie Adresse du Fichier), on lit I'adresse 

en question en FIAUX10 ($BEB9-BEBA), mais ce renseignement 
sera inexact si Ton a charge le fichier d une adresse differente de celle de i'enregistrement. II est 
alors preferable de lire I'adresse d'un fichier charge dans : 

— RWDATA $BED7-BED8 Pointeur pour lecture-ecriture de donnees. 

— RWCOUNT $BED9 BEDA Fournit le nombre de bytes, comme $BEC8-BEC9. - 
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1 I W IMWWI WMI 



GUY-HACHETTE 



UTILITAIRE 



Clement RENARD 



OUATRE OPERATIONS 



Comment transmettre des donnees a une routine LM de calcul ? Void une solution 
simple, facile a comprendre. 

REMARQUE : On envoie X = pour la soustraction, X = 1 pour I'addition, 2 pour 
la multiplication et 3 pour la division. On peut utiliser X a la place 
de * (multiplication) et : a la place de / (division). 



100 
110 
120 

130 
140 
150 
160 
170 
180 
190 

200 
210 
220 

230 



TEXT : NORMAL :D$ = CHR$ (4): PRINT D$"PR£3": PRINT 
FOR I = 768 TO 976: READ R: POKE l,R: (F R <> THEN NEXT 

HOME : PRINT "Q U A T R E OPERATIONS": 
PRINT '1 " 

PRINT: VTAB 12: CALL - 958 

PRINT "Operation (Nl - N2 ou Nl 4- N2 ou Nl * N2 ou Nl / N2)" 
VTAB 14: INPUT "Nl — » ";R$:N1 = VAL (R$): IF NOT Nl THEN 230 
VTAB 15: PRINT "SIGNE -» GET R$: PRINT R$ 
FORX - 0TO3;IFR$<> MID$ ( "-+ X :",X + 1,1) THEN NEXT 
IFXO 4 THEN 200 

FOR X - TO 3: IF R$ <> MID$ ("- + * /",X +1,1) THEN NEXT : IF X = 4 THEN 
160 



>:N2 = VAL (R$): IF NOT N2 THEN 150 



250 
260 



280 



VTAB 16: INPUT "N2 -» 
CALL 768.X.N1.N2 

CALL - 198: POKE 49168,0: WAIT 49152,128: POKE 49168,0: IF PEEK (49152) <> 27 
THEN 130 

VTAB 22: PRINT : PRINT "(E)NCORE (AA)ENU DE DISQUETTE (A)PPLESOFT ";: GET R$ 

IF R$ = "E" OR R$ = "e" THEN 130 

IF R$ = "M" OR R$ = "m" THEN PRINT D$"RUN MENU" 

IF R$ - "A" OR R$ = "a" THEN HOME : END 

GOTO 230 

DATA 32,245,230,169,231,160,170,224,1,144,22,224,2,176,4,160.193,128,14,224, 
3,176,6,169,233,160,130,208,4,169,234,160,105,140,55,3.141,56,3,32,190,222,32, 
123,221 ,32,99,235,32,190,222,32,123.221,32,105,234,32,52,237,76,58,219,0 
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OUELLE OPERATION 7 

300 : JSR $E6F5 GET8YTC saute un caroctere et appelie GETBYT, puis CONINT. 



303 

305 

307 

309 

30B 

30D 

30F 

311 

313 

315 

317 

319 

31 B 

31D 

31F 

321 

324 

327 

32A 

32D 

330 

333 

336 

339 

33C 



J Si X — 0, c'est bien la soustraction : saut. 

] Si X superieur ou egal a 2, voir plus loin... 

] X = 1 r c'est I addition. $C1 dans Y pour FADDT ($E7C1 ). 

] Si X superieur ou egal a 3, voir plus loin.,. 



Le resultat est dans X, 

LDY £$AA J $k7AA (FSUBT) : soustraction dans A e1 Y. 

CPX £$01 

BCC $0321 

CPX £$02 

BCS $0313 

LDY £$C1 

BRA $0321 

CPX £$03 

BCS $031 D 

LDA £$E9 I SE982 (FMULTT) : adresse de la routine de multiplication 

LDY £$82 J dansAetY. 

BNE $0321 Saut. 

LDY £$69 I $EA69 (FDIVT) : adresse de ia routine de dSvision - 

STY $0337 "I ... ■ j u j . , .... , 

STA $0338 J ^ iseen P' oce de I adressedela routine utilisee, 

JSR SDEBE CHKCOM teste la virgule. 

JSR $DD7B FRAAEVL : evalue la formule. Resultat dans FAC. 

JSR $EB63 MOVAF : FAC dans ARG. 

JSR $DEBE -j UM . j Kn 

JSR $DD7B J Meme processus que ci-dessus pour N2. 

JSR $E982 Routine choisie (adresse variable). 

JSR $ED34 FOUTconvertitlavaleurdeFACenchainedechiffres. 

JAAP $DB3A STROUT affiche cette chalne. 



RND OU 1 ? 



Comment obtenir (aleotoirement 
bien sur) une serie de ou de 1 ? 



300 : 


A9 


01 




LDA 


£$01 


302 : 


20 


Bl 


EF 


JSR 


$EFB1 J 


305 : 


20 


63 


EB 


JSR 


$EB63 


308 : 


A0 


02 




LDY 


£$02 n 


30 A: 


20 


01 


E3 


JSR 


$E301 J 


30D: 


20 


82 


E9 


JSR 


$E982 


310 : 


20 


52 


E7 


JSR 


$E752 


313 : 


98 






TYA 




314 : 


09 


B0 




ORA 


£$B0 


316 : 


20 


ED 


FD 


JSR 


$FDED 


319 : 


2C 


10 


CO 


BIT 


$C010 " 


31C : 


AD 


00 


CO 


LDA 


$C000 


31F : 


2C 


10 


CO 


BIT 


$C010 


322 ; 


C9 


IB 




CMP 


£$1B 


324 ; 


DO 


DA 




BNE 


$0300 J 


326 : 


60 






RTS 
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FAC vers ARG. 

Y f lottant dans FAC. 

FAC multipliepar ARG. 

On a le nombre sur 2 octets dans Y et A. 

La partie basse passe dons A. 

BH 7 61. 

Affichage. 

On continue aussi bngtemps que la touche ESCAPE n a pas 
ete p res see. 

Retour. voir dbm o sur vo trc disqu^tte. 



WBBBBmmmmmmmmMmmmmBB 
GUY-HACHETTE 



UTILITAIRE 



Pro DO S 



DOS 



Clement RENARD 



ALLER-RETOUR 



Vous communiquez directement — ou presque ! — avec les routines arithmetiques du 65C02, mais 
comment recuperer le nombre obtenu dans une variable ? 

Tout betement en fournissant au microprocesseur le nom de ladite variable — ici N3. Quand le cal- 
cul est effectue $DFE3 (PTRGET) va rechercher cette variable et eventuellement la creer. Sa valeur 
sera pointee par VARPNT ($83-84). MOVMF (SEB2D) se ehargero de transferer la valeur de FAC a 
cette adresse... si vous prenez la precaution — 6 combien elementaire — de mettre la partie basse 
de ['adresse en question dans X et sa partie haute dans Y. 



100 TEXT : NORMAL :D$ = CHRS (4): PRINT D$"PR£3": PRINT 

110 FORI = 768 TO 976: READ R: POKE I, R: IFRO THEN NEXT 

120 HOME : PRINT "ALLER-RETOUR" 

PRINT "_ " 

130 PRINT ; VTAB 12; CALL - 958 

140 VTAB 14: INPUT "Nl— » ";R$:N1 = VAL (R$); IF NOT Nl THEN 190 
150 VTAB 16: INPUT "N2—» ";R$:N2 = VAL (R$): IF NOT N2 THEN 1 40 
160 CALL 768,N1,N2,N3 
170 PRINT N3 

180 CALL - 198 : POKE 49168,0: WAIT 49152,128: POKE 49168,0: IF PEEK (49152) <> 27 THEN 130 

190 VTAB 22: PRINT : PRINT "(E)NCORE (M)ENU DE DISQUETTE (A)PPLESOFT ';: GET R$ 

200 IF RS = "E" OR R$ = V THEN 1 30 

210 IF RS = "M" OR R$ = "m" THEN PRINT D$"RUN MENU" 

220 IF R$ = A" OR RS = "o" THEN HOME : END 

230 GOTO 190 

240 DATA 32,190,222,32,123,221,32,99,235,32,190,222,32,123,221,32,130,233,32,190,222,32,227,223, 
166.131,164,132,76,45,235,0 



300 . 

303 : JSR $DD7B J N1 danS FAC 

3 06 JSR $EB63 FAC dans ARG, 

309 



30C 
30F 
312 
315 
318 
31A 
31 C 



20 


BE 


DE 


JSR 


SDEBE 1 


20 


7B 


DD 


JSR 


$DD7B J 


20 


63 


EB 


JSR 


$EB63 


20 


BE 


DE 


JSR 


SDEBE "1 


20 


7B 


DD 


JSR 


SDD7B _ 


20 


82 


E9 


JSR 


SE982 


20 


BE 


DE 


JSR 


SDEBE ~] 


20 


E3 


DF 


JSR 


SDFE3 _ 


A6 


83 




LDX 


S83 


A4 


84 




LDY 


$84 J 


4C 


2D 


EB 


JMP 


SEB2D 



N2 dans FAC. 

On divise, mais on pourrait faire n'importe quoi... 
Adresse de la valeur de N3 dans VARPNT. 

VARPNT dans X et Y. 

MOVMF transfere la valeur. ■ 
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ASSEMBLED 



NESTOR 



Comment trier rapidement une liste de nombres sur un octet ? Jusqu'a 
255, void une routine olassique*, pouvant d'ailleurs servir de base & 
HE d'autres, plus complexes. Elle sous-entend que la liste a trier est ins- 
tallee a partir de f'adresse $20Q0.. et que le nombre d elements est 
contenu dans lo case-memoire $1 FFF. 

Dans notre demonstration, les nombres sont aleatoirement mis en 
place par la ligne Basic 20. Nous nous sommes limites, ici, a 95 pour 
simplifier laffichage, mais vous pouvez essayer avec d'autres valeurs 
(ne depassez pas 255}. La verification ($302 d $308) pourrait etre escamotee dans un programme ou 
1'on aurait la certitude d'avoir plus d'un element. II n'est pas davantage interdit de placer le nombre 
d'elements moins un (NE-1 ) dans $1 FFF, ce qui elimine le DEY de lo ligne S30C 

* Ella n'est cartoinamant pas In&dlta, soil dons cotto vorslon. soft dans das versions voisinas. 




10 


TEXT : NORMAL :DS = CHR$ (4): PRINT D$"PR£3": PRINT 




SOFT ";: GETR$: VTAB 22: PRINT 






: PRINT OS' BLOAD TRI TRI": HOME 


80 


IF R$ = "M" OR RS = "m" THEN PRINT 


DS"RUN 


20 


FOR 1 = 8192 TO 8192 + 94: POKE 1,1 + INT { RND 




MENU.S6" 






(1) * 95): NEXT: POKE 8191,95 


90 


IF R$ = "A" OR R$ = "o" THEN HOME : END 




30 


AS - "PRESSEZ UNE TOUCHE POUR ACTIVER LE TRI 


95 


GOTO 60 






GOSUB 100 


100 


FOR 1 = 8192 TO 8192 + 18: FOR J = 1 TO 1 + 


76 STEP 


40 


CALL 768: HOME 




19: PRINT PEEK (J).: NEXT : NEXT 




50 


AS = "VOTRE LISTE EST TRIEE (PAR COLONNE) ": 


110 


VTAB 22: CALL - 958: PRINT : PRINT AS;: GET R 


$: VTAB 




gosub ioa 




22: PRINT 




60 


AS = "(T)RI POUR UNE AUTRE LISTE ": GOSUB 110 


120 


IF RS = T OR R$ - Y THEN HOME : GOTO 20 




70 


VTAB 23; PRINT "(M)ENU DE DISQUETTE (A)PPLE 


130 


RETURN 





300 


A2 


00 




LDX 


£$00 


302 


AC 


FF 


IF 


LDY 


$ 1 FFF 


305 


ca 


02 




CPY 


£$02 


307 


90 


IF 




BCC 


$0328 J 


309 


AC 


FF 


IF 


LDY 


$1 FFF 


30C 


88 






DEY 




3GD 


B9 


00 


20 


LDA 




310 


D9 


FF 


IF 


CMP 


$1 FFF, Y 


313 


BO 


OD 




BCS 


$0322 


315 


A2 


01 




LDX 


£$01 


317 


48 






PHA 




318 


B9 


FF 


IF 


LDA 


$1 FFF, Y ~1 


31B 


99 


00 


20 


STA 


$2000, Y_ 


31E 


68 






PLA 




31F 


99 


FF 


IF 


STA 


$1 FFF r Y _ 


322 


88 






DEY 




323 


DO 


E8 




BNE 


$030D J 


325 


CA 






DEX 




326 


FQ 


El 




BEQ 


$0309 


328 


. 60 






RTS 





Registre X d 0. 



ION 



Nombre d'elements a trier dans Y. 

S'il n'y a pas de retenue, on n'a qu'un element 

et le tri est inutile. 

TRI 



Nombre d'elements moins un dans Y (NE - 1). 

Charger NE + Y dans I'Accumulateur et le comparer a NE - 2. 

S'il n'y o pas de retenue, il est plus petit. S'il est plus grand, on saute. 
Puisqu'il y a echange, X est mis d 1 . 
A empile (nombre a permuter). 

Le plus grand prend la place du plus petit. 

On retrouve celui-ci sur la pile et il prend la place du plus grand. 

Y = Y - 1 . On continue jusqu'a Y = 1 inclus. 

X = X - 1 . Si X = 0, il y a eu permutation : encore un tour ! 
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LANCAGE C 



Claude AUBRY 



LEMONDEDES C 

ai rencontre un lecteur de TREMPUN MICRO, un individu comme vous et pas moi, le front plisse par 
I'effort, penche d une terrasse de bistrot sur UN DE MES ARTICLES. J'observoi quelques instants le speci- 
men, tandis qu'il plongeait son sandwich jombon beurre dans sa biere pression, sous I'ceil reprobateur de 
son fox-terrier a poils durs, AAoi, vous connaissez, curieux, je mapprochoi, pret d jurer que je m'appelais 
Y. KOENIG si besoin etait de me montrer dlscret. C est beau un homme qui pense, Celui-td pensait, mangeait son 
sandwich trempe et parlait en meme temps : un vrai regal esthetique. 

De son monologue chuinte, il apporaissait que le langage C , c'est peut-etre tres simple, mais qu'on n'y comprend 
rien tont qu'on n'a pas vu un programme qui fait vraiment quelque chose... 

Bon ! apres tout, c'est encore un peu les vaconces. Le clavier de mon GS fait encore CRRR, CRRR, CRRR a cause de 
tout le sable qui est reste coince dedans. Je vais etre gentil avec tous les courageux studieux qui n'achetent TREM- 
PUN MICRO que dans le but de decouper les pages de "C " tres simples et de les porter deux mois sur leur cceur. 
Voici un vrai programme, un beau comme un camion, presque oussi gros que I'objet precite, a comprendre ou 
a taper comme un fou, pratiquement inutile si vous remplissez vos cheques pour TREMPUN MICRO a la main, 
mais indispensable autrement. On y retrouve le bon vieux PRINTF et le nouveau SCANF, qui est la forme evo- 
luee de NNPUT Basic. Vous retrouverez egalement les tableaux rencontres dans le numero precedent. En 
plus, et en prime, vous allez decouvrir la structure de rupture de sequence conditionnelle, le... 




if (condition) instruction; 
else autre instruction; 



/* Ressemble furieusement au IF THEN basic */ 
/* instruction peut etre un bloc construction */ 



I'aiguilfage (equivalent au case du Pascal) 



switch (variable) 



case valeuM: instruction! ;break; 
case valeur2: instruction2;break; 

/* etc */ 

default: instruction par defaut: 

e " '- 



La boucle conditionnelle 



Si la variable vaut vafeurl on 
execute instruction 1, si elte vaut 
vofeur2 on ex&cute instruction!, 
etc. Si elk ne prend aucune des 
vafeurs definies on execute ins- 
truction par defaut. 



do 
e 

instruction ; 
instruction2; 

/* etc */ 

e 

while (condition); 



Qui consiste a repeter un bloc d'instructions (ou une 
instruction) font qu'une condition n'est pas remplie. 

A vous de jouer. a vos claviers, je veux entendre CRRR, CRRR, CRRR... 
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(c) 1987 CUUDE AUBRY et TREMP LIN -MICRO LAN GAGE C POUR XT.AT.IIGS.MAC etc 
Version IIGS compilee sur APWC 1 .0B7 
Adaptation pour IIGS Emile SCHWARZ 



£include <stdio.h> 

/ * Mm==============m=======K========================================= 

Traitement d'un nombre de trois eh iff res 

void traduc3(nombre3,card) 

unsigned int nombre3: 
int card: 

/* ^argument card ou 1 selon que le mot suivant est norn ou adjectif 
il permet de respecter la syntaxe QUATRE-VINGTS. QUATRE-VINGT-MILLE 
QUATRE-VINGTS-MILLIONS (idem avec CENT) */ 

e 

static char *unite°§= 
e 

" "."UN M i "DEUX ".TROIS "."QUATRE "/'CINQ "."SIX "."SEPT VHUIT ". 
"NEUF VDIX VONZE 'V'DOUZE VTREIZE VQUATORZE 'V'QUINZE » 
"SEIZE H "DIX-SEPT "."DIX-HUIT "."DIX-NEUF * 

e; 

static char *dlzaines°§= 
e 

' , "." n ,"VINGT u .TRENTE"."QUARANTE"."CINQUANTE","SOIXANTE" , 'SEPTANTE". 
"QUATRE-VINGTV'NONANTE" 

e; 

/* SEPTANTE et NONANTE ne sont pas utilises par le logiciel et ne figurent 
dans le tableau que pour faire plaisir a nos amis Suisses et Beiges */ 

unsigned int nb_centaines.nb_dizaines.nb_unites: 

On calcule le nombre de centaines de dizaines et d'unites 

nb_centaines=nombre3/1 00; 

nb_dizaines =(nombre3-(nb centaines*100))/10; 

nb_unites=nombre3-nb_ceritaines*1 00-nb dizainesM 0: 

/*____ ^.== ======= = ======= ,,,^ === „ = „ =================================== 

On s'occupe des centaines: 

Si pas de centaines on ecrrt rien ! Si une centaine on ecrit CENT 
Si superieur a 1 on 6crrt le nombre de centaines suivit de CENT si le nom 
est suivit d un adjectif cardinal, suivit de CENTS s'U est suivit d un nom 
ou s'il est situe a la fin du nombre 

if(nb_centaines > 0) 
e 

if (nb_centaines > 1) printf("%s J \unrte°nb_centaines§); 



is 
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If (card uu nb dizaines uu nb unites uu (nb centaines==1)) printf("CENT "): 
~ " elseprinff("CENTS"); 

■== == ==== ============================= m ============^= 

On traite les dizaines et les unites: 

Pour les valeurs entre 10 et 19 on augmente llndex du tableau des unites 
de 1 de facon a ecrire ONZE plutot que DIX-UN ! 

On fait subir le meme traitement pour SOISANTE-DIX et QUATRE-VINGT-DIX 
On traite le cas particulier de VINGT et VINGTS 

On joint par ET les nombres des dizaines et !e nombre UN de VINGT a SOIXANTE 
inclus ainsi que pour SOIXANTE et ONZE au dessus on n'emploie pas de ET 
On place un trait d'union entre les differentes parties de nombres 
inferieurs a 100 



switch (nb_dizaines) 
~ e 

case 0: printf ( M %s",unite e> nb unites§); break; 

case 1 :printf("%s u .unite o nb_unites+l0§): break: 

case 7: e 

/* On ecrit SOIXANTE */ 

printf {"%s a l dizaines a 6§): 

/* La liaison soit ET soit tiret */ 

if (nb unites — 1) printf(" ET "); 
" else printf("-"); 

printf("%s'\unite°nbjjnites+10§); 
e break; 

case 3: e 

printf("%s p .dizaines ,5 8§): 

/* Si pas d'unite ou pas de milliers S pluriel 
Si unite un tiret. si MILLE un espace */ 

if {nb unites == 0) if (card) printf (" 
else printf ("S ") ; 
else printf("-"); 

printf{"%s",unite°nb_unites§) ; 
e break; 

case 9: e 

printf ("%s-%s".dizaines o 8§.unite o nb_unites+l0§): 
e break; 

default:^ 

printf ("%s*.dizai nes° n bdizai nes§) ; 

ff (nb_unites = 1) printf (" ET "); 
if (nb unites > 1) printf ("-"): 

rintf("%s".unite°nb_unttes§); 
break; 

e 

e /* fin de traduc3 */ 
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Convertion d'un nombre entre 1 et 999999999 



void trad ucn (nombre) 
long nombre; 

e 

int nb millions.nb milliers.nb unites; 

if (nombre < 1e9) /* On ne traite pas les milliards */ 
e 

nb_mj||ions=nombre/f e6: 
nb milliers=(nombre-(nb millions*1e6))/1e3; 
nb~unites=nombre-nbjffillions*1 e6-nb_milliers*1 e3; 

traduc3(nb millions.O); switch (nb millions)e 

case OTbreak; 

case 1 :printf(" MILLION *):break; 
default:printf(" MILLIONS "):break: 
e 

switch (nbmilliers) e 

case 0: break; 

case 1 : printffMJLLE "kbreak; 
default:traduc3(nb_mitliers.1);printf("MILLE "); 
e 

ttaduc3(nb_unites f 0) ; 

else printf("Nombre trap grand Hl*)j 
printffcn"); 
e (* fin de traducnO */ 

• PROGRAMME PRINCIPAL ^ 

mainO 
e 

long nombre-Q; 

printff Programme traducteur de nombrescncnTapez c M 0c u pour terminercncn"); 
do 
e 

printf ("NOMBRE :"); 

scanf("%ld*\&nombre): 

traducn(nombre)*: 



Ah ! mes amis I Les vacances, le soleit, la plage... 
Le bruit du groupe elect rogene alimentant mon 
APPLE GS et couvrant heureusement /'infernal bruit 
des vagues et I'abominable cris des mouettes... 
que tout eel a est deja bin.. . 

Allez ! la prochaine his, on travail le ! CRRR, CRRR, 
CRRR, CRRR, CRRR... 

Claude AUBRY. 
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STARTUP B IIIWW.1 



Bruno CHEVALLIER 



MINI-DOC 



A I'offichage du catalogue, le prefixe du volume 
apparaTt en haut d droite, en mode inverse. 

Les titres des fichiers sont affiches sur 5 colon- 
nes. Le nom de fichier inverse est celui concerne 
par les touches ESP et RETURN. ESP selectionne 
les fichiers qui seront affectes par les comman- 
des ulterieures. Une marque apparatt devant 
chaque fichier selectionne. 

Lorsque le nom de fichier inscrit en mode inverse 
est un sous-catalogue, RETURN envoie le catalo- 
gue de ce sous-volume. Lorsque ce nom inverse 
est un fichier binaire ou basique, I'execution de 
ce dernier est lancee. Cette version ne compor- 
tant pas encore de gestion d'erreurs*, I'execution 
de fichiers binaires non executables se traduira 
par des consequences que je n'ose decrire... 

TAB permet le retour au volume actueL 

La derniere ligne presente, de gauche a droite, 
les types de fichiers accessibles avec, en mode 



100 


GOTO 270 


4544 


105 


WAIT - 16384,128,127; PRINT PEEK ( - 16384) - 128: POKE - 1636 






8,0: GOTO 105 


F206 


110 


PRINT PEEK < - 16287): HOME : GOTO 110 


5C06 


115 


RES = ■■ iRT « OiPO ■ 1403 


8320 


120 


ON LEN ( RES) > 15 GOSUB 235: VTAB (1): POKE P0,RT + CT 


7343 


125 


GET AS: PRINT ; :AA = ASC (AS) : ON AA = 8 GOTO 175s ON AA = 21 GO 






TO 185: ON AA = 127 GOTO 195: ON AA = 13 GOTO 165:AA = AA * (1 - 






CRT = AND AA > 46 AND AA < 58)) 


4464 


130 


IF AA < 46 OR AA = 47 OR (AA < 64 AND AA > 57) OR (AA < 97 AND AA 






> 90) OR AA > 122 THEN GOSUB 235: GOTO 120 


E2FE 


135 


IF RT - LEN (RES) THEN RES = RES + AS sRT = RT ♦ li PRINT AS;: GO 






TO 120 


32A4 


140 


IF RT = AND LEN (RES) = 1 THEN RES = RES : RT = RT + 1 : GOTO 160 


95E5 


145 


IF RT = LEN (RES) - 1 THEN RES ■ LEFTS ( RES , RT ) ♦ AS : RT = RT + 






1 : GOTO 160 


CA19 
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inverse, les types selectionnes, le stotut d'acces du 
nom de fichier inverse et la taille de ce dernier* 
Pomme ouverte T permet de modifier la selection 
des TYPES : Heches deplacent, ESP (de)selec- 
tionne, ESC retourne a I'offichage du catalogue. 

La premiere ligne decrit les commandes Pomme 
ouverte disponibles. Ces commandes sont les 
suivantes (du moins dans cette version) : 

Pomme ouverte P : Changement du prefixe, 
Le nouveau prefixe, indique par le chemin 
ou par sa localisation slot/drive revele aussi- 
tot ses secrets. 

Pomme ouverte D ; Creation d'un sous- 
volume dans le volume en cours. 

Pomme ouverte V R et B ; Verrouillage, 
deverrouillage ou effacement des fichiers 
selectionnes par ESP. 

* Nous avons ajout4 un ONER ft GOTO 6 h ligne 506. U evite un 
ptaniage en cas de changement de disquette, 



MINI-DOC (suite) 



150 IF RT = THEN RE* = A* * RIGHT* C 
RE* , LEN (RE*) - RT - 1 ) : RT =* RT + 
g; GOTO 160 

155 RE* = LEFT* < RE* , RT) + A* + RIGHT* < RE* , LEN (RE*) - RT - 1 ) : RT 

- RT + 1 

160 VTAB <1>: POKE 1403,CTs PRINT RE*;;" * ; : GOTO 120 

165 ON RE* = GOTO 1 20 : RE* = LEFT* < RE* ,RT) : RETURN 

170 GOSUB 235;RT = RT - liRE* = LEFT* (RE* t LEN (RE*) - 1)! GOTO 160 

175 A* = IF RE* = OR RT = THEN PR I NTT CHR* (7) ; : GOTO 120 

180 RT = RT - 1 : GOTO 120 

185 A* = IF RT = LEN (RE*) THEN PRINT CHR* (7)y: GOTO 120 

1 90 RT = RT + 1 : GOTO 1 20 

195 A* = "": ON RT = GOTO 175: IF RT = 1 AND LEN (RE*) = 1 THEN RE 

* = " " : RT = 0: GOTO 160 

200 IF RT ■ LEN (RE*) THEN RE* = LEFT* ( RE* , RT - I) iRT = RT - 1: GO 
TO 160 

205 IF RT = 1 AND LEN (RE*) > 1 THEN ER* = RIGHT* (RE*, LEN (RE*) - 
1) :AA = ASC ( LEFT* < ER* t 3 ) ) : ON AA > 46 AND AA < 58 GOTO 225.-RE 

* = ER*:RT ■ RT - 1: GOTO 160 

210 RE* = LEFT* (RE* ,RT -1)4 RIGHT* < RE* , LEN (RE*) - RT ) ; RT = RT 

- 1 : GOTO 160 

215 A* = " ' : RT = RT + 1: IF RT = LEN <RE*) THEN PRINT CHR* (7) ; 

220 GOTO 120 

225 GOSUB 235: GOTO 120 

230 GOTO 120 

235 UTAB (10): POKE P0,10 

FICHIER «PRODOS* 1 
240 UTAB (12): POKE P0,10 

245 VTAB (14) : POKE P0,10 

TRE ! " " 
250 UTAB (15): POKE P0,10 

5 CARACTERES ! " 
255 UTAB (16) : POKE PO,10 



PRINT 
PRINT 
PRINT 
PRINT 



CETTE IDENTIFICATION EST UN NOM DE 
TROIS REGLES D'QR SONT A RESPECTER 

- LE PREMIER CARACTERE EST UNE LET 

- LE NOM DE FICHIER N' EXCEDE PAS 1 

- NE SONT UALIDES QUE LES LETTRES 



LES CHIFFRES ET LE POINT 1 11 
260 FOR I - 5 TO 16: UTAB (I): POKE PO,10: PRINT ■ 

00: SOUND = PEEK ( - 16336): NEXT : NEXT : RETURN 



: FOR J = 1 TO 1 



265 


PRINT 


"IDENTIFICATION DE L'ACQUI SIT1 ON : " : : GOSUB 115 




270 


A* = 


■ 


n 






275 


D* = 




CHR* (4): PRINT D*"PR£3 H : PRINT 




280 


REM 




285 


REM 


* 


TX* 


NOM DES FICHIERS 


* 


290 


REM 


* 


BIP* 


TYPE DE CHAQUE FICHIER 


* 


295 


REM 


* 


TX 


1NDICE FICHIER 


* 


300 


REM 


* 


TM 


N OMBRE TOTAL DE FICHIER DANS LE PREFIX 


ft 


305 


REM 




PL 


PREMIERE LIGNE DU CATALOGUE 


* 


310 


REM 


ft 


T* 


TYPES DES FICHIERS AFF1CHES 


* 


315 


REM 


* 


C* 


COMMAMNDES DISPONIBLES 


I 


320 


REM 


* 


AD 


COWUTAION AUXMAIN 


* 



325 REM **#**#ft»##**ftft*#*####ft##ftft##ft#»*»#ftft»##ft»#ftftft#»ftft#ftftftft* 
330 : 
335 : 

340 REM *#ft**ftft#ftftftftftft«ft«M»ftft*»»»»**##*»#ft»»#»##»##*##»*####«#ft 



9713 

B50E 
630E 
7337 
EDE4 
1F43 
7E8E 
4F65 
248D 

2E8F 

BDED 

F843 

ED5E 
863C 
113E 
B4C2 
113E 

C371 

5758 

F970 

7506 

3952 



CE71 
36A3 
EE79 
BD30 



003A 
003A 



52 
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345 


REM * INITIALISATIONS 




350 


REM ##*#***#***#**#****************************^ 




355 




U U Jn 


360 


TX ■ 110: DIM TX$<TX),8iPX<TX),LOCK^(TX),S<TX3,BLOCX<TX):AD = - 






16300 :ZER0 = 


88r 1 


365 


PL = 2 : DL - 21 :HH - DL - PL * 1 


I'd c 6 


370 


T*(l) = B DIR :T*(2> = BAS ::T*<3) = BIN :T*<4) = TXT" :T*(5) = 






*AWP";T*<6> = W USR":T*(7) = "SYS'sTd) = 1 :T<2) = 1 :T<3) = 1 


n v d o 

DFB2 


375 


C*<1) = "Prefixe :C*(2> = Doss i er : : C*< 3) = "BLoad" :C*(4) = "Bsa 
v e " : C* ( 3 > = : C* < 4 ) = '" :Ct<5) = "Uerrou i 1 ler" :CS<6) = "d^veRrou 






i Her" :C*<7) = "Effacer* 


rr doc 


380 


L0*<0) = "Acces libre " ■ : L0*< 1 > = "Acces prot*g4" : 


90BB 


385 


POKE 35,22: POKE 34,2: GOSUB 415: GOTO 435 


B76E 


390 




003A 


395 


REM 




400 


REM * 




405 


REM 




410 




U03A 


415 


POKE 1024,65: VTAB CI): POKE 1403,2: PRINT "-commandes ; : FOR J 






= 1 TO 7: PRINT CSC J> ; : PRINT " " ; : NEXT 




420 


POKE 2000,65: VTAB (24): POKE 1403,2: PRINT -Types ; ;: FOR J 
- 1 TO 7i GOSUB 425: PRINT T*< J) \ : NORMAL \ PRINT " • ; : NEXT : RE 






TURN 


jh6j 


425 


IF T(J) THEN IIWERSE : RETURN 


4rt9 


430 


RETURN 


ooo 1 


435 


UTAB (23): POKE 1403,1: PRINT "Flecftes deplacent; ESP s^lectionne 






; RETURN entre dans le dossier ou boote } 


•f f Jj 


440 


| 


UUjh 


445 


REM »*********#*******************************♦************ 




450 


REM * LECTURE OU PREFIX 




455 


REM ft****************************************************** 




460 




U U oH 


465 


PRINT W PREFIX" i INPUT PR«: GOTO 475 


7C3D 


470 


ON LEN CPR$) = 1 GOTO 465: PRINT PREFIX" ;PR$ 


0L60 


475 


k/TAB (2)! CALL - 868: POKE 1403,80 - LEN <PR*>: IhWERSE : PRINT 






PR*: NORMAL 


1 rUD 


480 


j 


003A 


485 


REM 




490 


REM * 




495 


REM ********** •** ************♦*****♦*#****«****♦*# 




500 


HOME 


2F97 


505 


FOR TX = 1 TO TM:TX*CTX) = " B :S(TX) = Q*B1P/(TX> ■ 0:LOCKX<TX) - 






OsBLOCXCTX) = 0: NEXT :TX = 0:TM = 


BFEA 


506 


ONERR GOTO 905 


95EE 


510 


PRINT OS OPEN PR$ ,TD1R : PRINT D> READ PR» : INPUT I 1 » : INPUT 






■ |>| » | V 1 PSa*lr 

: INPUT L3S 


P UHJ 


515 


INPUT L4«: IF L4* = THEN 525 




con 

520 


1 Y r» = MID* ( L*t* , 1 o , d ) : bubUb lUdu ! IA* — WlUw \Lt?,i|iOJ ! uri 1 A 
$ = "STARTUP GOTO 515:TX = TX + 1:L0CIC<CTX) - < LEFT* C 
L4*,l) = ) :BL0C = MAI C MID* CL4*,25,4) ) :BL0CX<TX) = BL0C:BIP 






^CTX) = I:TX$(TX) - TX* : GOTO 515 


3815 


525 


TM = TX: PRINT D*" CLOSE "PR* 


7DF9 


530 




003A 


535 


REM (suits page 54) 
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MINI-DOC (suite) 



540 REM * 

* 

545 REM *** 

##***##**##*** 

550 : 

555 FOR TX - I TO TM 

560 L = PL + TX - HH * ( INT ((TX - 1) / HH)):C = 16 * INT ( (TX - 1) 

/ HH) + 1: POKE 34, C: VTAB CDs PRINT TX*(TX) ; 
565 NEXT TX 
570 : 
575 REM 
580 REM 

585 REM *****#**###****###***#****##**#*****##**************#** 
590 ! 

595 POKE 1403, l! VTAB (2>lC = 1 s L = PL + It I F TM = THEN VTAB (15) 
: PRINT ■ "Pas de fichier des types selectionn£s dans ce volume's 
TX = ItBIPECDO = Is GOTO 605 

600 G0SU8 665 

605 i WAIT - 1 6384 , 128 , I 27 :A = PEEK < - 16384) - 128s POKE - 16368 
,0: ON PEEK ( - 16287) > 127 GOTO 760 ! ON A < GOTO 605: ON A = 
32 GOTO 1085: GOSUB 670 

610 IF A = 9 THEN PR* = LEFT* (PR*, LEN (PR*) - 1 ) : ON RIGHT* (PR*, 

1) = "/" GOTO 470: GOTO 610 

615 IF A - 8 THEN C = C - 1 :C = (C < 1 ) + C 13F8 
620 IF A = 21 THEN C = C + 1:C = -<C>5)*1+C:IFHH*(C-1) 

+ (L - PL) > TM THEN C = C - 1 
625 IF A ■ 10 THEN L = L + 1:L = <L= DL + 2) * (PL + 1) + (L < DL ♦ 

2) * Li IF HH * <C - 1) + <L - PL) > TM THEN L = PL + 1 

630 IF A - 11 THEN L=L-1:L=(L= PL) * (DL + 1) + (L > PL) * L: 
IF HH * (C - 1) + (L - PL) > TM THEN L = PL + TM - INT (TM / HH) 
* HH 

635 ON A = 13 GOTO 705; GOTO 600 
640 : 
645 REM 

650 REM * AFFICHAGE INVERSE NORMAL INVERSE NORMAL INVERSE...* 
655 REM 
660 : 

665 TX= (HH * (C - 1)) + L - PL: POKE 2003 + 2 * BI P"/.(TX) , 85 : VTAB ( 
24): POKE 1403,50 : PRINT LO*( LODO/,(TX) ) ; : PRINT * BLOCS : ";BLOC7. 
(TX);: CALL - 868: INVERSE : GOTO 675 

670 NORMAL : POKE 2003 + 2 * BIP%(TX),160 

675 POKE 1403,1 + <16 * <C - 1)): VTAB (L) : PRINT LEFT* (TX*(TX),15) 

;: NORMAL : RETURN 
680 : 
685 REM 

690 REM * REALISATION DE LA COMMANDE SUR LES F1CHIERS SELECT I ONNES * 
695 REM a********************************************** #**»*»*»**#** 
700 : 

705 TX=(HH*(C-1)) + L - PL:TX* ■ TX*(TX) 

710 FOR 1 = 16 TO 1 STEP - 1 : ON MID* (TX*,I,1) < > " " GOTO 715:T 

X*(TX) = LEFTS (TX*,I - 1) 
715 NEXT 1 9DCB 
720 IF BJF/ATX) = 3 THEN POKE 48984,0: PRINT D* " - " ;TX*(TX) 
725 IF BIP*/.(TX) = 2 THEN PRINT D*" RUN" jTX*(TX) 
730 IF BIPX(TX) ■ 1 THEN PR* = PR* + TX*(TX) + V" : GOTO 470 
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735 


END 


0180 


740 


REM 




745 


REM * ANALYSE ET EXECUTION DES POMMES OUVERTES 




750 


REM 




755 




ft ft OA 

UU Jtt 




T C A — OA T U CM P* _ ■ CCD , A 1 ai- 4 I m n n n / _ \ Jl. 1 -> r- n COP _ n 4 ••• 1 JTA 

ir m — at i ntiN u» — tor I ec 1 1 onn<* v / oepiacp toL 5 or i ; vih 






D ^ *3 ^ \ ■ Dfll/r * fl *5 "JO 1 ITIU / % ■ DDT tlT P-* ■ . JPTVT n Old 

D Cj:4J: KUKb ]4ud f /y - LbN CUfJJ rKlNI L% $ £ bUlu olu 


pgrii 
DTr U 




tc a — on xucm one. dem d 


r joo 


770 


jc i z XP, TMFN 94S- RFM D 


0A92 


775 


IF A = 86 THEN B$ = "LOCK" : BF$ = "Uerrou ill": GOTO 955; REM U 


FAD 9 




IP A - oo TMFN — "1 Witi nrW ■ RF-A — " rt6 u o Rn nn i 1 1 " ■ RCTTf! RS^ « RFM R 








5437 


785 


IF A = 69 THEN B* = "DELETE" :BF$ = "Effar" : GOTO 955: REM E 


040E 


790 


GOTO 760 


FC48 


795 


REM 




800 


REM * SELECTION DES TYPES DE F1CHIER A AFFI CHER * 




805 


REM 




610 


GOSUB 470 


3B4D 


815 


I = 1 :K = 1 


11 DO 


820 


UTAB (24) 


3D59 


825 


POKE 2003 + 2 * I ,85 


2F24 


630 


WAIT - 16384, 128, 127 :A = PEEK C - 16384) - 128: POKE - 16368,0 






: ON A = 32 GOTO 860 


398F 


835 


IF A = 8 THEN K = I - (I > i>: GOTO 855 


8408 


840 


IF A = 21 THEN K ■ I + <I < 7): GOTO 855 


523A 


845 


IF A = 27 THEN NORMAL :C* = 1 " ' " " ------- 






"""■s UTAB <24>: POKE 1403,79 - LEN CC*): PRINT C* ; : POKE 2003 + 






2 * 1,160: POKE 34,2: HOME : GOTO 500 


CF6C 


850 


GOTO 830 


2146 


855 


POKE 2003 + 2 * I ,160:1 = K: GOTO 825 


3B70 


860 


TCI) = ABS <T< I ) - 1): IF TCI) = THEN NORMAL : GOTO 870 


B985 


865 


INVERSE 


3D9E 


870 


POKE 1403,8 +4*1: PRINT TSCI); 


5435 


875 


K ■ I ♦ <I < 7>1 GOTO 855 


5155 


880 


: 


003A 


885 


REM ************** ******* ********* # ************************ 




890 


REM * POMME p * 




895 


REM ******************************************************* 




900 


: 


003A 


905 


UTAB (1): POKE 1403,3: PRINT C*<1);" P pour pre-fixe , S pour port 






et lecteur " ; : CALL - 868 


5EAA 


910 


GET A*: PRINT ; : ON AS = "P" GOTO 915: ON At = "S" GOTO 920: GOTO 






910 


B7D2 


915 


HOME : UTAB (1): POKE 1403,1 : PRINT "Nouvtau prHixe :/ " 






* CALL - 868:CT = 19:: GOSUB 115:PR* = V + RE* + 






V : GOSUB 415: GOTO 475 


673A 


920 


HOME : UTAB <1): POKE 1403,1: PRINT "Nouueau port Nouueau 






drive :";:PR* = "": CALL - 868 : POKE 1403,16 


B10F 


925 


GET A; PRINT A;;PRS = PRI + , S + SIR* CA) 


i OPT 

1 2CE 


930 


POKE 1403,33 


3213 


935 


GET A: PRINT A;:PR* = PR* ♦ B ,D" + STRH CA) 


72BF 


940 


GOSUB 415: PRINT Dt" PREFIX" ; PR* : GOTO 465 


DB3D 


945 


• 
■ 


00 3A ► 
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MINI-DOC 



(fin) 



950 HOME ! VTAB < 1 ) : POKE 1403,1 1 PRINT 



*?; CALL 
PRINT D*j 
GOTO 475 



955 

960 
965 
970 
975 

980 
985 
990 
995 
1000 
1005 
1010 
1015 
1020 
1025 

1030 
1035 
1040 
1045 
1050 

1060 
1065 
1070 
1075 
1080 
1085 
1090 

1095 

1100 



- 1 : ON MID* <AS,J,1) < > fl * GOTO 980 :A* 



"Sous catalogue a cr£er 
- 868 :CT = 31 i GOSUB 115 
"CREATE" ; RE* i GOSUB 415: 

HOME 

FOR 1=1 TO TM 
IF S<I) - THEN 995 
A* - TX*<I) 
FOR J = 16 TO 1 STEP 
= LEFT* (A*, J - 1> 
NEXT J 

MTAB <15): POKE 1403,15: PRINT BF*;"age de " ;A* ; : CALL - 868 
PRINT D*;B*;A*: PRINT ;:S<I) = 
NEXT 1 

GOSUB 670: GOTO 500 

REM **#*##**»#*#************»**************»*********«***** 
REM * NE CHARGE QUE LES FICHIERS DE TYPE SELECT J OWE * 
REM *#*♦«*###**»*###***♦************#**#***********»»****«* 



= 8 GOTO 1050: GOTO 1035 



I = 1 

IF T(I) = THEN I = I + 1 : ON I 
IF T*<I) = TYP* THEN RETURN 
1 = 1 + 1 

IF 1 - 8 THEN POP : GOTO 515 
GOTO 1035 



REM a****************************************************** 
REM * ESP SELECT! ONNE DES FICHIERS * 

REM 
■ 

TX = CHH * CC - 1)) + L - PL:TX* = TX*(TX> 

IF SCTX) THEN POKE 1403 f <16 * <C - 1)): YTAB CD i PRINT CHR* <i 
60) ; iSCTX) = 0: GOTO 605 

POKE AD + 1,0 :F = PEEK <41) * 256 + PEEK (40): POKE F + 8 * <C 
- 1>,68: POKE AD,1 
S<TX) = 1: GOTO 605 



58A3 
2F97 
072D 
3605 
019F 

D7E3 
A3CC 
696B 
6BB9 
9DCB 
28C7 
003A 



003A 
634A 
BD18 
FC25 
8058 
E1E3 
4874 
003A 



003A 
8505 

A9FF 

4Q41 
E6D1 



• Vous pouvez recopier tous les programmes de TREMPLIN MICRO... 

• Vous pouvez egalement vous offrir notre disquette n°17 . 

• Vous disposerez ainsi de toutes vos routines (ProDOS et DOS)... mais aussi 
de la disquette gratuite que vous offrent Yvan KOENIG (pour le contenu) et 
TREMPLIN MICRO (pour le support). 

• Vous apprendrez par ailleurs tout ce qu'il faut savoir sur cette seconde dis- 
quette (gratuite pour celles et ceux qui commanderont la disquette n°17). 
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parYvan KOENIC 



Affichez 

la Tres Haute Resolution 

sur votre CS 

Suite au courrier d'un lecteur de Tremplin Micro, j'ai ete amene d etudier I'affichage 
Tres Haute Resolution du GS... alors que le graphisme informatique est loin de me pas- 
sionner. Je vous livre le fruit de mes cogitations. L'utilitaire que tous les possesseurs de 
GS connaissent est GS. PAINT. La version LI de ce programme (demandez-la d votre 
concessionnaire si ce n'est dejd fait) est capable de creer 3 types de fichiers images. 



Fichier ECRAN 



Fkhier ECRAN contient, sous forme brute, la tota- 
lity du tampon THGR, c'est-cVdire la zone memoire 
$E12000-$E19FFF. GS. PAINT cree ce fichier sous le 
type $C1 . Cest a ma connaissance le seul type de 
fichier cree par DELUXE.PAINT. 

II com pone 32756 octets. Les 200 * 160 = 32000 
premiers correspondent aux 64000 pixels de 
l ecran (mode 320). Viennent ensuite 200 octets 
pomteurs, 56 octets vides puis 16 * 32 octets 
definissont les palettes (une seule est utilisee avec 
GS.PAINT). 

SI vous souhoitez recuperer une image THGR incluse 
dans Tun des innombrables programmes affichant 
dans ce mode afin de la manipuler avec GS.PAINT par 
exemple. ou de l aff icher . depuis le BASIC, a I'aide de 
THGS, void la procedure a suivre : 

Ctrl Reset pour sortir du programme original, 

CALL - 151 pour passer en mode moniteur. 

C029: 81 pour forcer I'affichage de I'image, ce 
qui permet de verifier son integrile. 

C029:21 pour retablir le mode texte, 

i Booter une disquerte ProDOS 8 bits (ProDOS 
1.1.1, ProDOS 2.0, P8) par 5 Ctrl P. 

• Puisque nous nous retrouvons sous APPLESOFT, 
CALL - 151 pour acces au Moniteur. 



• C029:81 affiche i'image ; on peut ainsi 

controler une nouvelle fois son 
integrate. 

* C029:61 permet de revenir en mode texte 

avec le mode adressage lineaire 
actif ce qui est indispensable pour 
pouvoir deplocer le bloc image (cf 
description du contenu de NEW- 
VIDEO). 

00/1000 > E1/2000.E1/9FFFM transfere vers 
$00/1000 le buffer THGR situe de SE1/2000 
jusqu'a $E1/9FFF. 

• Q ramene au BASIC. 

* BSAVE Pathname, A$1000,E$8FFF cree un 
fichier BINaire que GS.PAINT pourra exploiter. 

On pourrait plus simplement utitiser ma commande 
externe PACK monimage qui souverait le tampon 
THGR sous forme d'un fichier Ecran Compresse 
(voir plus loin), mais GS.PAINT ne sait pas, a ce 
jour, exploiter ce type de fichier. 



Fichier type PAINT 



Fichier type PAINT contient, sous forme compres- 
see, les informations correspondent a une page 
ecran complete, Les 32 premiers octets sont la defi- 
nition de LA palette retenue. . . (suite page sb) 
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(oui r GS.PAINT n'utilise qu'une palette par dessin). 
Nous avons ensuite 512 octets correspondent a la 
definition des motifs. Ces premiers octets sont 
sfockes tels quels. Ensuite, nous trouvons les octets 
Amvpe £• proprement parler, compresses a I 'aide 
d'un outif contenu dans la ROM du GS, jai nomme 
PackBytes, outil n°$26 de la famille n°3 : Miscella- 
neous Tools. Ces fichiers PAINT sont de type $CQ, 
AuxType $0000. 



Fichier Ecran Compresse 



Type $C0, AuxType $0001. Je ne connais pas de 
programme commercial utilisant ce type de 
fichier qui est le plus compact de tous. C'est 
lensemble du tampon THGR (200 lignes image, 
pointeurs et palettes) qui est compacte par 
_PackBytes. La commande externe PACK a ete 
ecrite pour generer ce type de fichiers. Le fichier 
source se compose de K.PACK.S, RELOPRO.S et 
PACK.S. 



Fichier type APPLE 



II s'agit d'un fichier de type $C0, AuxType $0002 et 
il o ele defini par APPLE pour devenir le mode stan- 
dard de stockage car sa structure modulaire ouvre 
des perspectives tres souples. 

If est constitue de plusieurs blocs, MAIN imperatif , 
PATS et SCIB facultatifs (GS. PAINT 1,1 n'utilise pas 
de bloc SCIB). 

Pour suivre les informations ci-dessous, je vous 
suggere de charger le fichier IAPPLE par BLOAD 

IAPPLE,T$C0,A$2000. 

2000.2003 longueur du bloc MAIN sur 4 octets 
(ici $00001146). 

2004.2008 Str 'MAIN', 

2009.200A "master mode" 2 octets definis par 
QuickDraw (ici i 



200B.200C nombre de points lumineux (pixels) 
par ligne (ici 320). 

200D.200E nombre de palettes (ici 16 bien que 
seule la l* re soit utilisee par 
GS.PAINT). 

200F-220E NbPalettes de 32 octets. 



200F.2210 nombre de lignes stockees (396 pour 
GS.PAINT). Bien entendu, on ne peut 
en aff icher que 200 a la fois. 

2211-2840 NbLignes fois 4 octets descripteurs 
de lignes, les 2 premiers octets de 
chaque groupe representant la lon- 
gueur de lo ligne cornpactee, 

2841-314A les octets definissant le contenu de 
Umage, comprime ligne par ligne 
par l outil _PackByfes. 

Vient ensuite le bloc PA TS : 

314B.314E longueur du bloc "PATS" (ici 
$0000020B). 

314F.3153 Str "PATS" 

3154.3155 nombre de motifs sur 2 octets (ici 
16). 

3156.3355 16 motifs de 32 octets (ce que vous 
voyez en bas de lecran de travail de 
GS.PAINT). 

Pourrait vem'r ertsuite le bloc SCIB : 

Longueur du bloc sur 4 octets, 
i Str "SCIB". 

Donnees motifs l er plan. 

• Donnees motifs fond. 

• Donnees motifs cadre (FRAME). 

Je n'ai helas aucun detail sur ces donnees que je 
n'ai encore jamais rencontrees. 

La richesse des informations contenues dans ce 
type de fichier permet toutes les acrobaties. La 
commande THGS en est un exemple, qui permet, 
entre autres choses, d'afficher, depuis le Basic, une 
image de ce type en commen^ant a une ligne rede- 
finie par la simple commande THGS monimage, B 
begline (loption (,A0) permet de beneficier dune 
routine de pause suivie de la restauration du mode 
de fonctionnement initial). 

Lo documentation technique du GS donne les infor- 
mations essentielles sur le mode de codage lors de 
la compression de l image (dans les fichiers PAINT 
ou APPLE, I'image est cornpactee ligne par ligne). 

Nous ovons des octets descripteurs et des octets objets, 

II existe quatre types de descripteurs : 

00xxxxxx (avec xxxxxx de a 63) indique qu'il fout 
afficher les xxxxxx + 1 octets qui suivent. 

01 xxxxxx (avec xxxxxx = 2,4,5,6) indique qu'il fout 
officher xxxxxx + 1 fois I'octet qui suit. 
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10 xxxxxx (avec xxxxxx de G a 63) indique qui! faut 

aff icher xxxxxx -f I fois le groupe de 4 

octets qui suit. 
1 1 xxxxxx (ovec xxxxxx de 6 63) indique qu'il faut 

aff icher (xxxxxx + 1) * 4 fois I'octet qui 

suit. 

Ajoutons a ces informations quelques details sur 
uncommutateur essentiel : NEWVIDEO SC029. 

bit7 I = deconnecte mode video lie, 

connecte mode Super Haute Resolution. 

bit6 1 - adressage lineaire du tampon 

video par opposition au mode "entre- 
lace" bien connu des habitues du 
mode HGR. 

bit5 = DHGR couleur, 

1 = DHGR monochrome. 
bi14,3,2,1 08LIGATOIREMENT mis a 0. 
bitO manipulation INTERDITE d lutilisa- 

teur. Seul le MONITOR peut le faire. 

Pour aff icher un ecran de type non compresse, pos 
de probleme. On lit 256 octets du fichier, on les 
expedie dans le tampon THGR et on recommence 
jusqu'a la fin du fichier. 

Si Ton est en presence d'un Ecran compresse ($00.0001), 
il suff it de lire et de decompacter en continu. 

Pour les deux autres modes compresses traites, go 
se complique. Dans un premier temps, il faut lire et 
transferer la palette. Ensuite, on utilise Set_Mark 
pour avancer dans le fichier jusqu'a la zone "octets 
compresses" qui nous interesse. Dans le cas des 
ticklers APPLE, on recupere dans le fichier lui- 
meme le nombre de palettes et le nombre de lignes 
souvees afin d'exploiter correctement les informa- 
tions disponibles. Pour decompacter, on utilise 
I'outil UnPackBytes $2703 ($27 dans miscellaneous 
tools}. 

Apres ce decompactage, il nous reste d garnir la 
zone $E19D0O E19DFF qui contient les 200 descrip- 
teurs de lignes et 56 octets de remplissage 
qu'APPLE demande de mettre a (tout au moins 
pour la version actuelle du GS). Pour des images de 
la l* re generation, il nous suffit de mettre toute 
cette rone a Q car nous ne faisons pas appel aux 
possibilites evoluees de la machine (palettes multi- 
ples ou changement de palette par ('intervention 
des interruptions). 

J'ai mis tout ceia en ceuvre sous forme d'une com- 
mande externe ProDOS qui donne un remarquoble 
confort dutil'tsation, 

mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmammmmmm> 
TREMPLIN MICRO 



En mode direct, THGS monimage.AO charge et affi- 
che I'image indiquee et attend une frappe du cla- 
vier pour revenir au mode d'affichage initial. Cette 
commande fonctionne oussi en mode programme : 
PRINT CHR$(4)"THGS monimage r A0". 

Si Ton s'abstient de specifier le parametre (,A0), il 
n y a pas de pause ni de restau ration du mode affi- 
chage initial qui reste olors a votre diligence. 

Le fichier source, sous MERLIN, PRO, comporte les 
trois modules desormais classiques : 

K.THGS.S = module d'appel. 

RELOPRO.S = module relogeur. 

THG5.S source de la partie active qui s attribue 
quatre pages memoire. 

Le programme DEMO.THGS sauve I'etat de NEW- 
VIDEO, affiche une image avec pause puis, apres 
votre intervention au clavier, affiche en sequ- 
ence plusieurs images. Au passage, on utilise 
CHGPALETTE, une petite routine implantee en 
page 3 qui recupere la palette de I'image active 
pour I'ojouter aux 2 palettes integrees d'origine 
dans la routine. Ensuite, une boucle affiche 
alternativement ces 3 palettes. 
En outre, il est aussi fait appel a THGS pour I'affi- 
chage d'une image APPLE a partir d'un numero de 
ligne non nul r et a PACK pour creer un fichier Ecran 
compacte ($C0 0G01). 

Cette courte routine demo met en evidence un 
inconvenient des fichiers de type ecran. Qu'ils 
soient Normaux ou Compactes, le bloc palettes est 
charge en dernier. Si Ton est dejd en mode visuali- 
sation pendant le chargement, on voit apparaitre 
I'image dans une gamme de couleurs qui provient 
de I'image precedente. II y a egalement de ce fait 
risque de problemes si les pointeurs prevoient des 
interruptions, 

Comme a I'accoutumee, la mise en pake de THGS 
et PACK est faite par le programme STARTUP. 

Je me permets d'attirer votre attention sur les solu- 
tions adoptees pour I'ecriture du programme. 
RELOPRO ne sachant pas reJoger du code 65C816, 
tout ce qui est specif ique a ce microprocesseur a 
ete regroupe dans une courte routine implantee 
dans la zone data du programme qui n'est pas 
manipulee par RELOPRO. 

Le catalogue de BASIC. SYSTEM n'affichait pas 
AuxType pour les fichiers de type "$xx", avec un 
petit patch ; cette lacune est comblee et vous pou- 
vez identifier les fichiers images lors du CATALOG. 

BE EG: JSRA6I2, LDY E4E. LDASD3, RTS A4F2: JSP. EE EG BNEA516 
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II etoit impossible de faire figurer les sources, 
les objets el la demo sur la disquette Tremplin 
Micro n°17. II a ete decide de realiser une dis- 
quette speciale. 

Plutot que de remplir celle-ci en multipliant les 
images, j'at ajoute la commande TRANS qui per- 
met de recoder une image HGR ou DHGR preala- 
blement chargee en une image THGR noir et 
blanc en mode 640. Le fichier genere est alors un 
ecran compacts (type $C0.0001). La syntaxe 
d'acces a la commande est simple : 

• TRANS monimage (,Sslot) (,Ddrive) cree le 
fichier correspondent a une image HGR. 

• TRANS monimage, titrebidon [ r Ssbt) (,Ddrive) 



cree le fichier correspondent a une image DHGR 
(voir le programme ESSAI). 

La disquette double face est pleine et il ne reste 
pas de place pour PRODOS et BASIC.SYSTEM. II 
vous faudra demarrer a partir d'une autre dis- 
quette, faire PREFIX THGS1 puis RUN STARTUP, 

je remercie Xavier SCHOTT qui m a procure les 
specifications officielles des divers formats image, 
et Alexandra CLEMENT qui m'a transmis les images 
ASTRONAUTS, COASTLINE et WINDYCOVE. IAPPLE 
est une facetie de man fils qui connaTt mon allergie 
a un groupe de trois I el t res bien connu, et les 
autres images ont ete extraites de diverses dis- 
quettes APPLE ou VERSION. SOFT. vron koenic. 




ATTENTION 



DISQUETTE TREMPLIN MICRO WAN KOENIG 



est adressee automatiquement et GRATUITEMENT a tous 
les lecteurs abonnes aux DISQUETTES TREMPLIN 
MICRO, mais n'oubiiez pas qu'elle est specifique GS. Elle 

sera par ailleurs jointe a toute commande de la disquette d'accompagnement n°17 

(inutile de le preciser lors de votre commande). 

Vous pouvez aussi obtenir THGS contre une modeste participation aux frais 
(voir votre bon de commande, h la fin du journal). 



POURQUOI N'AVONS NOUS PAS PUBUE CETTE BATTERIE DE PROCRAMME5 ? 

Pour deux raisons faciles a comprendre : 

• lis auraient occupe* un nombre de pages impressionnant. Ne presenter que les codes 
se serait revele indigeste. Publier les sources n'aurait rien apporte aux possesseurs 
d'Apple //, he et He. 

• lis sont destines aux seuls utilisateurs de GS, machine a laquelle TREMPLIN MICRO 
a d£ja consacre bon nombre de pages. 



ALLONS NOUS CONTINUE!! DAWS CETTE VOIE ? 

tl suffit de feuilleter le magazine pour constater que TREMPLIN MICRO ne se contente 
pas de proposer des programmes sur disquettes, mais consacre la presque totality de la 
revue a de nombreux programmes et routines. 

Un grand sacrifie : le courrier des Lecteurs... pour lequel un numero entier ne suffirait pas ! 

ML 
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rMflMMMMMCM 

GUY HA CHE TIE 



INITIATION TffiW 



ARGOS 



Cette routine ne presenterait qu'un interet secondaire 
si elle n'aidait pas le neophyte a comprendre comment 
utiliser le AALI (Machine Language Interface), partie 
centrale de PRODOS. SYSTEM. On remarquera que 
I'affichage des eventuelles erreurs n'y est pas traite. 




300 


20 


58 


FC 


J5R 


FC58 


303 


A9 


5C 




LDA 


$5C -1 


305 


A0 


03 




LDY 


£03 


307 


20 


3A 


DB 


JSR 


DB3A 


30A 


20 


6F 


FD 


JSR 


FD6F 


30D 


8A 






TXA 




30E 


F0 


F0 




BEQ 


0300 


310 


8D 


9A 


03 


STA 


039A 


313 


BD 


00 


02 


LDA 




316 


29 


7F 




AND 


£7F 


318 


9D 


9B 


03 


STA 


039B r X 


31 B 


CA 






DEX 




31 C 


10 


F5 




BPL 


0313 


31E 


20 


00 


BF 


JSR 


BF0O 


321 


C4 








C4 


322 


78 


03 






0378 


324 


B0 


DA 




BCS 


0300 


326 


A9 


64 




LDA 


£64 


328 


AO 


03 




LDY 


£03 


32A 


20 


3A 


DB 


JSR 


DB3A 


32D 


AE 


7D 


03 


LDX 


037D - 


330 


AD 


7E 


03 


LDA 


037E _ 


333 


20 


24 


ED 


JSR 


ED24 


336 


A9 


6E 




LDA 


£6E 


338 


AO 


03 




LDY 


£03 


33A 


20 


3A 


DB 


JSR 


DB3A 


33D 


AE 


80 


03 


LDX 


0380 


340 


AD 


81 


03 


LDA 


0381 


343 


20 


24 


ED 


JSR 


ED24 


346 


20 


00 


BF 


JSR 


BFOO 


349 


C8 








C8 


34A 


8A 


03 






038A 


34C 


90 


01 




BCC 


034F 


34E 
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RTS 





PREPARATION 

HOME efface I'ecran. 

Adresse de la chaine 'TITRE: 

STROUT affiche cette chaine. 

Entree de GETLIN sans asterisque. 

Le nombre de caracteres est dans X. On le passe dans A, 

S'il est nul, retour a la saisie. 

Longueur du mot stockee (voir plus loin). 

ChaTne installee au le AALI saura la lire 
(grace a la liste des parametres). 



TREMPLIN MICRO 



GET FILE INFO <$Ca> 

Saut au point d 'entree du MLI. 

$C4 : codede GET FILE INFO, 

Adresse de la liste des parametres. 

Si retenue a 1 , erreur et retour au point de depart. 

Adresse de la chaine... "Ad /Long : " 

Aussitot affichee par STROUT. 

On lit ici I'adresse de chargement d un fichier binaire 

(longueur si c'est un fichier texte). 

LINPTR affiche cette adresse ou longueur en (dec). 

Adresse de la chaine "Blocs; ". 

Aussitot affichee par 5TROUT. 

Nombre de blocs retrouv£ 

dans la liste des parametres... et affiche par LINPTR. 



OPEPHSC8) 

Nouvel appel au MLI. 

$C8 est le code de OPEN (ouvrir le fichier). 
Adresse de la liste des parametres d'OPEN (3). 
Si retenue a (pas d'erreur), on saute, 

Termine. (suite page 62) 
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34 F 



20 00 BF 



JSR BF00 



352 : 


CA 






CA 




353 : 


90 


03 




0390 




355 : 


20 


00 


BF 


JSR BFO0 




358 : 


CC 






CC 




-icq . 


Qft 










35 B 








RTS 




35C 


54 


49 


54 


52 45 3A 20 


00 


364 


41 


64 


2F 


4C 6F 6E 67 


3A 


36E 


20 


20 


42 


6C 6F 63 73 


3A 


378 


OA 










379 


9A 


03 








37B 


00 










37C 


00 










37D 


00 


00 








37F 


00 










380 


00 


00 








382 


00 


00 








384 


00 


00 








386 


00 


00 








388 


no 


00 

WW 








38A 


: 03 










38B 


: 9A 


03 








38D 


: 00 


20 








38F 


: 00 










390 


04 










391 


: 01 










392 


: 00 


20 








394 


: 00 


00 








396 


: 00 


00 








398 


: 01 


01 








39A 


00 


00 


etc. jusqu'a $3CF 





R1A*($CA) — — 

Nouvel appel au AALI. 

$CA est le code de READ (on va lire 51 2 octets maxi) 
Adresse de la liste des parametres de READ (4). 



CLOSE (SCO 

Dernier appel au AALI. 

$CC est le code de CLOSE (fermeture de fichier). 

Adresse de I'unique parametre. 

Termine. 



CHAINES 



TITRE; * 
Ad/Long: 
..Blocs: • 



PARAMETRES GET PILE INFO — 

Nombre de parametres (10). 
Nom d'acces (adresse). 
On lira id le code d'acces. 
Le type de fichier. 

Le type auxiliatre (adresse de chargement ou longueur) 

Le type sauvegarde. 

Nombre de blocs occupes. 

Date modifiee. 

Heure modifiee. 

Date de creation. 

Heure de creation. 



PARAMETRES OPEN — 

Nombre de parametres (3). 
Adresse du nom d'acces. 
Buffer (ici $2000). 
Numero de reference. 



PARAMETRES READ — 

Nombre de parametres (4). 
Numero de reference. 
Adresse du buffer. 
Nombre d'octets a lire. 
Nombre d'octets lus. 



PARAMETRES CLOSE 

Un seul parametre ; le numero de reference. 

STOCK ACE DE LA CHAlNE-TITRE 



Le premier octet contiendra la longueur de la chaTne, les 
suivants ses caracteres ASCII (bit 7 d 0). 



Pour essayer cette routine, cherchez un titre dans votre catalogue de disquette (MLI par exemple) et tapez-le 
6 la suite de titre. Normalement, si vous faites ensuite CALL - 151 puis 2000L, vous obtiendrez la liste du pro- 
gramme MLL Vous pourrez ensuite essayer avec un fichier TXT et r a la meme adresse, vous aurez les 512 pre- 
miers octets de ce fichier... Apres utilisation, omusez-vous a controler les resultats dans la liste des parame- 
tres (Adresse ou longueur en $37D.37E r nombre de blocs en $380.381... par exemple). ■ 
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LANCACE C WTffFTWffjy 



c convert! 

Convertir un nombre decimal en hexa, puis en octal n'esf pas d'une grande simplicity en 
Basic, En langage C , cela devient tellement simple qu'on aurait tort de s'en priver. 
Parcourez plutot les lignes 44 et 45 de ce programme,., et vous aurez tout compris : 

— %x retourne la valeur de la variable en hexa 

— %o retourne cette meme valeur en octal. 



main () 






27 


SA: 


e 






28 


pnntt( TAPEZ LE NOMBRE A CONVERTIR; ); 


3 int c, s 


= 20: 




29 


scanf( %ld ,&x); 


4 long x; 






30 


if(x > = 65536)e 


5 






31 


printffPAS PLUS OE 65535 S'lL 


6 / * — TRAYAIU.ONS AVEC UN ECRAN VIERCE — 


-V 




VOUS PLAITIcn"): 


7 






32 


goto SA; 


8 CL: 






33 




pr 






34 


/ * SI CUT UN ZERO, CEST PINt * / 


10 






35 




1 W * ET SEPARONS CHAOUI PHASE PAR UNE UCNE 


V 


36 


e 


12 






37 


if(x ==Q)e 


13 LG: 






38 


pnntf("MERCI DE VOTRE ATTEN 


14 


s; 






TION! A BIENTOTI^n"); 


15 


if(s>fl)e 




39 


exit(0): 


16 


prints "); 




40 




17 


goto LG; 




41 


/ * CONVERSION EN HEXA, PUIS OCTAL ET RETOUR */ 


18 






42 




19 /< 


- MUX PITTIS RETOURS UCNE 


■V 


43 


e 


20 






44 


printf("Ce qui fait, en hexadecimal : $%xcji", 


21 e 








x); 


22 


prinfff'encji"); 




45 


printff'ou encore en octol : %ocn", x); 


23 


s = 2Q: 




46 


goto LG; 


24 






47 


e 


25 /* 


5AISIE DE VOTRE NOMBRE 


■'/ 






26 








■ 
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Votre bibliotheque 
INFORMATIQUE 



Utiliser MS DOS 
a I aide de 
i assemble ur 



MatmTRIO 
■ WrvjTRIO 



• 




• UTILISER MS-DOS A t'AtDE 
DE L ASSEMBLEUR 
(Marine et J. -Michel TRIO) 

Qui no pos deplore son incapacity a allouer 
dynamiquemenf de la memoire ou, plus sim- 
plement, h ne pas pouvoir laisser certaines 
parlies d'un programme dappltcation en 
memoire de masse ? Vous... peut-etre. S'il 
vous arrive de travailler ovec MS. DOS, le 
Jivre de Marti ne et de Jean -Michel TRIO 
saura eclairer votre lanterne sur bien des 
poinls. Vous apprendrez tout sur la struc- 
ture d un programme r ,EXE sur celle d'un 
programme '-COM, sur le chargemenf et 
I execution d'un programme ou d'un over- 
lay, etc. 

Quant a la gestion des volumes disquettes/ 
disque dur, elle deviendro pour vous un jeu 
d'enfant. 

Chaque theme est developpe de fac.on 
metbodique et pratique, sans fioritures 
inutiles r mais avec de bans exemples 
(plus de 13G pages !). Un seul regret ; 
souf erreur de ma part, il ne semble pas 
qu'une disquette d'accompagnement soit 
prevue. Dommage ! j'aurais bien oime 
tester tout cela sans passer par de fasti - 
dieuses heures de saisie ! 

EYROUES - 61. boulevard St Germain 75005 PASIS 
let. 46.34.21 W 



par NESTOR 
• LE LANGACE MACHINE 

ri id pr 

(DATA BECKER, Schieb) 

La preface de ce gros bouquin (590 pages) 
devraii laire plaisir 6 GuyHochetle qui, dans 
des lermes voisins, rappelle regulierement, 
aux lecfeurs de Tremplin Micro que le langage 
machine nest pas aussi complique que I'affir- 
ment,.. les professionnels. Du 65C02 et du 
65C816 au 8083 et au 30286. i! n y a que... le 
premier pas qui coute ! Si vous ovez la possibi- 
lity de "jouer'' avec un PC, ne manquez pas, 
bouquin ouvert, d'en decouvrir lous les se- 
crete ! Je vous promets de longues heures de 
veifle, mais une inegalable jouissance inle- 
rieure (a mon age, on foit avec ca qu'on a, pas 
vrai?), 

EDITIONS MICRO APPLICA TION 

13. rue Sainte-CfkHe 75009 PARIS. 



LE 

LANGAGE 
MACHINE 

SUR 



PC 




• DISQUETTE ET DISQUE 
DUR SUR PC 

(DATA BECKER, Bomanns) 

J'avaue connaftre (assez bien) mon Apple cheri 
et so disquette (DOS ou ProDOS), Pour ce qui 
est de son disque dur, e'est encore ou-dessus 
de mes modestes moyens. Par contre, meme 
s'il m'arrive assez souvent de pianoter sur un 
compatible PC, j'ovoue que — avant la lecture 
pardon le survol, de ce livre — j ignorais a peu 
pres tout des sujets clairement traites par 
I'aufeur, exemples 6 I'oppui. Celo vo de la des- 



cription des supports (sans surprise pour moi) a 
la protection des donnees (recuperer un fichier 
abime). en passant par I organisation de la 
memoire de masse... entre autres choses. 
Fail interessant ; une disquette est joinle au 
livre et comprise dans son prix de vente (269 F 
pour 260 pages], ce qui ma paru tres pratique. 

EDITIONS MICRO APPLICATION 

13 rue Sainte-Cecile 75009 PARIS. 

• PROGRAMMER 
EN MACINTOSH 
(L Carty, E. Roy,C Vincent) 

Macintosh, enfant cheri d' Apple, n'a pas ete concu 
a liniention des "petits" programmers de ma 
generation. Cest du pret-c-porler informalique de 
bonne locture, fait pour etre onime par quelque 
obeissante souris. A me lire, on croiroit que j'ai 
une dent contre certe pomme-la. C est faux. Foi de 
Nestor, j'en oi meme un specimen dons mon 
bureau, poye de mes propres deniers... mots je ne 
le programme pas... ou peu. Pourtant Borland et 
des bouquins comme celut-ci me donnent envie de 
me remettre a I'ouvrage. Le Moc vouf bien un GS, 
pas vrai ? En tout cas. je suis certain que Pro- 
grammer en Macintosh donnera des idees a eel les 
(je ne vous oublie pas. jolies lectrices) et a ceux (|e 
vous aime bien aussi; qui, utilisaleurs d un Mac au 
bureau, disposeni d'un GS pour meubler leurs lon- 
gues soirees d'hiver. J'ai devore le chapitre sur 
le C !merci de m envoyer un outre bouquin pour 
mon diner], mais le gesf ion noire de memoire a 
stoppe mon elan. Je reviendrai dessus des que ma 
pauvre cervelle aura retrouve son equilibre.. . et je 
n en serai qu a la page 45 (le livre en compfe 300). 
Un bon ouvrage de programmation pour tous les 
courageux. 

EYKOLLE5 -61 boulevard St Germain 75005 PARIS 
Tel ! 46.34.7199 
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REPONSESAUX LECTEURS 



Yvan KCENIG 



HGR MONOCHROME 



Un lecteur de Sophia Antipolis m'a appele pour me 
faire part de ses problemes avec I'emulation du 
mode HGR, sur le GS. Lorsqu'il affiche des 
caracteres ou des lignes, il lui est impossible 
d'obtenir un aspect identique a celui dont il 
beneficiait en monochrome sur son He. Disons, 
pour etre bref , que selon la parity de leur colonne, 
les points font 1/3 ou 2/3 du point habituel. La 
lisibilite des affichages s'en trouve evidemment 
perturbee* Essayez par exemple AUX.DRAW de 
Trempftn Micro n°J2 sur un GS ! 

Ne frouvant rien sur ce point dans ma documen- 
tation, et surpris par lo reponse du Support 
Technique Apple : bug de la carte mere, j'ai 
interroge le responsable du Support Developpeur 
qui m'a oussitot envoye un document tres clair, 
permettant de regler le probleme. 

Les possesseurs d'un GS savent qu'il leur est 
possible de selectionner le mode monochrome a 
partir du tableau de bord, methode parfaite pour 
I'offichage DHGR, mais insuffisante pour le mode 
HGR. 

Le tableau de bord manipule ['octet $C029 
(NEWVIDEO pour les intimes) dont la structure est 
la suivante ; 



bit7 = 1 



(le 



nouveau 



bit6 = 



active le mode THGR 
mode specifique ou GS). 
linearise (indispensable pour 
envoyer ou recuperer des infos dans 
le buffer THGR en $E 12000). 
bit5 = pour affichoge hires couleur, - 1 pour 
affichage monochrome 

IMPERATIVEMENT. 
manipule par le moniteur 
INTERDIT aux utilisateursl 



bit4 J 3.21 
bita = 



acces 



Lorsqu'on lui demande de passer en monochrome, 
le tableau de bord met le bit5 a 1 . 
Pour que le mode HGR passe effectivement en 
monochrome, il faut egalement positionner AN3 



sur OFF par un acces a $CQ5E (attention, les labels 
APPLE sont curieux : $C05E sappelle SETAN3 et il 
est commente clear annuncialorS tandis que $C05F 
sappelle CLRAN3 et qu'il est commente set 
annunciators. 

La routine MONOCH permet de forcer le mode 
monochrome et de retablir le mode initial si 
necessaire. Dans le programme TEST.AUX.DRAW, 
il suffira d'ajouter lo ligne 25 PRINT D$"-MONOCH" 
et d'ajouter, en fin de programme CALL771 . 

Un point m'intriguait dans la reponse de M.Schott 
(Support Developpeur). On pouvait y lire que de 
nombreux programmes HGR lie etaient incomplets 
parce qu ils omettaient de manipuler $C05E/$C05F 
alors que je n'avais jamais rencontre la moindre 
mention du role de ces switches sur le mode HGR 
(en dehors de I'activation du mode DHGR). 

Je me suis replonge dans mes archives et, 
surprise ! bien au choud dans le classeur FORUM 
des DEVELOPPEURS, a la fin de APPLE lie technote 
£3, j'ai trouve le paragraphe troduit ci-dessous : 



Si AN3 est en position OFF en presence d'une carte Sff 
cofonnes etendue (permettant i'affkhage DHGR), h 
bit le plus significant en HGR standard sera ignore. 
C'est-a-dire que toute image HGR simple sera affichSe 
en utilisanf exchsivement Noir, Blanc, Violet ou Vert. 
Si i'image confenait du bleu ou de I'orange, ees 
coulevrs seront corrverties en violet ouen vert. 



Ce qui me console un peu, c'est que je ne suis 
apparemment pas le seul a ne pas avoir saisi les 
implications de ce paragraphe, 

Activer $C05E lorsque Ton emploie le mode HGR force 
en fait le mode Monochrome sur les lie et Ik, 

II est, de ce fait, convenable de prevoir un BIT 
$C05E chaque fois que Ton a des messages a 
afficher et de faire BIT SC05F lorsque, la reponse 
attendue etont obtenue, on souhaite retablir 
Toff ichage en couleurs . (suite page 66) 
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En resume : 

• sur He et lie HGR mono par BIT $C05E 
HGRcouleur parB!T$C05F 

1 surGS HGR mono par BIT SCG5E 

HGR couleur et bit5 = 1 sur $C029 
par BITSC05F 
et bH5 = sur $C029 

MONOCH fait tout cela pour vous. 

CALL768 — appelle la routine off iciel le ^iden- 
tification pour savoir si Ton se 
trouve sur un GS. Si e'est le cas, on 
sauve le contenu de $C029 pour 
pouvoir le retablir et on met le bit5 
a 1 pour forcer le mode mono- 
chrome. 

— GS ou pas, on lit I'indicoteur d'etat 
de AN3, on le sauve et on force le 
mode monochrome. 

— appelle la routine officielle d'iden- 
tification. Si I on a affaire a un GS, 
on retablit $C029 dans son etat 
initial. 

— GS ou pas, on recupere l'e>ot 
initial de AN3 ce qui nous permet 
de savoir s'il nous faut retablir le 
mode couleur par BIT $C05F. 



QUESTION 



Ay ant fabrique un petit 
programme STARTUP, 
j'ai reus si a obtenir des 
pauses de mes catalogues PRODOS par I'emploi de 
CTRL-S. Rien de bfen extraordinaire, me direz-vous 
et ( de plus, cefa neme satis fait guere. Ma question 
est la suivante : 

• Existe-Ml sous ProDOS des Pokes semblables a 
ceux du DOS permettant d'avotr des pauses 
automatiques (Poke 44452,22 etc) ? 

J. D. (9&3QQ PONTOlSt) 



NON, NON et NON ! 
par pi fie, ne bidouillez 
pas BASICSYSTEAA ! le 
me suis loisse aller 6 le faire il y a plusieurs mois 
pour avoir une pause plus commode que Ctrl-S, 
(e'etait sur le disque SIGNATURE) mois, c'^tait dons 
une zone qui n'a pas bouge de Bl 1.0 a Bl 1.1 
(pardon , Bl e'est BASICSYSTEM), 

1 1 n'y a pas beaucoup de place disponible et celle-ci 
est necessaire pour corriger les VRAIS bugs de Bl. 

N'oubliez pas que I on peut interroger un CATalog 
en cours par Ctrl Q et qu'il est possible de faire un 
CATalog selectif par CATalog, Txxx. 

Bien entendu, je ne peux vous interdire de mettre 
en place une routine de comptage des lignes 
comme cela existait dans le DOS 3.3 mais a 
Tepoque ies utilisateurs demandaient un patch 
SUPPRIMANT cette pause, Yvon kcenig 



IMAGEWRITER II 

Manuel de reference 



Bibliotheque Apple, 
en coedifion avec 
Apple Computer France 



Un ouvrage 

de base pour vofre 

Bibliotheque informatique 



L'lmageWriter II fonctionne aussi bien ovec les ordinoteurs Macintosh 
qu'avec ceux de la gam me Apple //. 

Aux utilisateurs chevronnes, ainsi qu'aux responsables des equlpes- 
systeme, ce manuel offre la de qui leur permettra de connaltre ei de 
mieux mattriser les caracteristiques de cette imprimanie. 

Les programmers pourront ainsi : 

• soit ufiliser I'lmageWriter If a partir de leurs propres programmes, 

• soit configurer un programme duplication general pour I'imprimante, 

lis seront en mesure de piloter I'lmageWriter a partir du langage de pro- 
grammation de ieur choix, de controler la vitesse de transmission, d'utili- 
ser des coracteres etrangers, de moduler le style d'impression, la disposi- 
tion du texte sur la page, de creer et d'utiliser des caracteres personnali- 
ses, de concevoir et d'imprimer des graphiques en couleurs, etc. 

Des onnexes techniques foumissent en outre une table ASCII, la liste des 
commandes de I'imprimante, les motifs point-par-point de tous ses carac- 
teres, so fiche technique ainsi que son interface serie, 



Spirole, 195 X 230. 244 pages. 32Q F 

InterEdltlons 87, avenue du Maine 75014 PARIS — Tel. 



43,27,74.50 
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0300! 4C 1A 



0303: 
0304: 
03071 
0309: 
030C: 
030F: 
0312: 
0314: 
0316: 
0319: 

Q31A: 
3 1 B : 
031E: 
0320: 



38 

20 IF 
BO 06 
AD 35 
8D 29 
AD 36 
29 DF 
DO 03 
2C 5F 
60 

38 

20 IF 

BO 06 

AD 29 



1 

2 

3 

4 

5 

6 

? 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

03 26 
27 
28 

FE 29 
30 
31 

CO 32 
03 33 
34 
35 
36 
37 
38 
39 



CO 



40 
41 

CO 42 



0323i 
0326: 

0328: 8D 29 

032B: 

032E: 
0331 ! 
0334: 

0335: 00 
0336: 00 



43 
44 
45 
46 
47 

48 
49 
50 
51 
52 
53 



* HGR MONOCHROME 
* 

* Si vous fctes de^u pap 1 'Emulation HGR de uotre GS 

* ou I ass* par tes '-face ties' du mode HGR //e f //c 

* sur un moniteur couleur utilisez MONOCH. 
» 

* APPLE nous await each* 1 'existence d'un 'switch' 
ft permettant de forcer l'affichage monochrome. 

* 

* M. SCHOTT m'ayant revel* celui-ci, tout s'arrange. 
ft 

* Essayez par exemple TEST .AUX.DRAW de Tremplin 13 
» en ajoutant la ligne 25 PRINT DV-MONOCH" 

* 

ft Ywan KOENIG 25/05/87 



1 DROUT1NE = 



SFE1 F 



ORG S300 



CALL768 JMP 
CALL771 = 

SEC 
JSR 
BCS 
LDA 
STA 

: 1 LDA 
AND 
BNE 
BIT 

:2 RTS 



DOM ON ; Force affichage monochrome 

* ;Re tabl i t mode initial 



1DR0UTINE 
:1 

GREG 
SC029 
ETAT_AN3 

£•^11011111 jteste bit5 



I Que 1 1 e mach i ne ? 
=>Pas un GS 

jRetablit valeur mitiale 



D0MON0 



SEC 
JSR 
BCS 
LDA 

STA 
0RA 
STA 

LDA 

STA 
BIT 
RTS 



GREG DS 
ETAT AN 3 DS 



;2 

*C05F 



1DROUTINE 
:1 

SC029 
GREG 

r/,oQiooooo 

*C029 

SC046 

ETAT_AN3 
$C05E 



;on £tait en mono, on y reste 
;retabl i t mode coul eur 



I e mach i ne ? 
=>Pas un GS 
;Le b i t5 cont i ent I e 

deBORD 



mode TABLEAU 



•Sauuons 1 e 

;Force mode MonoChrome 



;Le bit5 contient 1'etat C05E/C05F 
;Sauuons le 

jForce mono sur TOUTES machines 



BSAVE MONOCH ,A*300 , L*37 
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Votre bibliotheque 

INFORMATIQUE par NESTOR 



LOUIS LEON 
FRANCOISE MILLET 




FVROLLES 



# C EST SI FACILE 
(L LEON, F. MILLET) 

Je me suis amuse a taper plusieurs des 
exemples de ce livre sur morv GS,.. et ga a 
morche. En fait, ce livre presente 
le C d'aujourd'hui, celui qui respecte un 
certain nombre de normes, mondioiement 
reconnues et passe par les fonetions d une 
bibliotheque standard. 

Si vols recherchez une bonne initiation, 
n attendez pas davanloge. 

Les 316 pages de C 'EST SI FACILE vaus don* 
neront envie d'oller plus loin, mois vous en 
sourez dejd assez pour creer de petifes rou- 
tines sur votre Apple HQS... ou sur 
n'importe quelle machine acceplant le C . 

EYROUES - 61, boulevard St Germain 75005 PARIS 



• PROGRAMMA TION EN C 
DE L 'IBIVl PC 

(Gerard LEBLANC) 

Un de plus vonl Denser les ennemis jures 
du C , C'esl vrai que la litterature sur icelui 
commence a devenir abondante, mais on ne 
peut que s en rejouir. 

Le C deviendra probablement Le langage 
de developpement par excellence. II n'est 
pas sur qu'il parvienne 6 seduir les octuels 
adeptes du Basic, mais j'avoue souhaiter 
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qu'un grand nombre de programmers 
"amateurs" s'y interessent, 

lei — a Tremplin Micro —, on nous pose 
souvenl des questions sur la portability 
reelle du C . Reponse claire et nette : s'il 
s'ogit du C de I'lBM PC du meme nom, aucun 
problems Le C est generalement portable. 
L'APW.C de l Apple IIGS fera probablement 
son affaire du petit programme que votre 
copain a pondu sur un compatible PC, mais 
ne lui demandez tout de meme pas 
('impossible, 

En attendant, notamment si vous etes cin- 
quante pour cent IBM et Apple pour I'autre 
moitie, etudiez le bouquin de Gerard 
LEBLANC. 

mOLLSS - 61. boulevards! Germain 75005 PARIS 

• DEVELOPPER 
FN LANGAGF C 
(Jean-Pierre LAGRANGE) 

L'auteur nous rappelle — comme je I'ai fait 
plus haul — que le langage C est porta- 
ble... dans certaines limites, Les fonetions 
donnees dans son iivre concernent en prio- 
rite I'lBM PC {et les compatibles), mais pour- 
ront presque toujours etre adaptees par 
doutres ulilisateurs, notamment en ce qui 
concerne lesfichiers, 

Les Applemaniaques apprendront avec plai- 
sir que les routines de Jean-Pierre 
LAGRANGE passent tres bien dans le LAT- 




TICE,C... ce qui leur donnera de serieux 
espoirs pour les compiler ovec I'APW-C de 
I' Apple IIGS, Pas dovanlage de probl ernes 
avec le TURBO C de Borland ou le MICRO- 
SOFT V4,0. En realite, les programmes du 
livre (la disquette y est jointe, bravo !) sont 
donnes pour I'excellent compilateur de Bor- 
land. Gageons que certains d'entre eux (je 
pense notamment 6 la gestion des fichiers, 
mais aussi aux diverses methodes de tri), 
feronl le bonheur des progrommeurs, aver- 
tis ou non. 

EDITIONS MICRO APPLICATION 

13, we Sainle-Cecile 75009 PARIS. 



ROBERT 
LIGONNlERE 

1 

1 

JuVk ■> i .'1, .i:h.. 


PREHISfOIRE 
ET HISTOIRE 
DES 

ORDINATEURS 







• PREHISTOIRE ET HISTOIRE 
(Robert LIGONNIERE) 

Sortez un peu de la programmation et revi- 
vez la longue histoire — 6 com bien mecon- 
nue ! — de I ordinateur, sans doute la plus 
geniale creation de notre XX* siecle. 

L'Homme a toujours ete" attire par les chif- 
fres qu'il n'a jamais cesse d'additionner, 
puis de multiplier a I'infini, en inventant 
pour cela des machines de plus en plus inge 
nieuses. Mais lordinateur n'aurait sans 
doute jamois vu le jour — sous sa forme 
actuelle en tout cos — sans la logique. II n'y 
a pas si loin de la carte-programme du 
metier a tisser, qui prefigure la mecanogra- 
phie, 6 la "machine anolytique" de Charles 
Babbage. Mais ce n'est encore qu'une solu- 
tion mecanique d un probleme que (seule} 
I'electronique sait resoudre... un peu plus 
lard. Hier... aujourd hui, la realite depasse 
la fiction. Quelle belle histoire ! 

EDITIONS ROBERT LAFFONT 
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LES PLUS INFORMATIQUES 



Clement RENARD 



SuperMacroWorks 

APPLEWORKS + LA SOURIS + LES MACROS 



SuperMacroWorks, de Randy Brandt, est un produit 
Beogle Bros, Inc. maintenant disponible en France, 
et avec un manuel complet en Francois. Le 
traducteur et adaptateur est Dimitri Geystor*. 
Vous pourrez vous procurer cet excellent logiciel 
amencain aupres de lui. 

Mais nous n en aurions peut-etre pas parle dans 
Tremplin Micro si Dimitri, applemaniaque 
convaincu, s'etoit contente de commercialiser I'un 
des bestsellers des Beagle Brothers, ll a fait rnieux 
que cela puisqu'il vous accorde, en prime, une 
disquette d'exemples commentes (en francais bien 
sur), contenant notamment une macro inedite, 
construisant sous vos yeux un agenda annuel. 

Mais revenons a SuperMacroWorks ! 

• Qu'est-ce qu'une macro ? 

Une serie de commandes compilees pour en faire 
une routine pratique et rapide, actionnee par une 
seule commande du clavier. On peul, de cette 
moniere, imaginer des chases invraisemblables, 
depuis la mise en page elementaire d'un en-tete de 
lettre, jusqu'a celle, plus complexe, d'une 
facture... Tune et I 'autre n'etant executees qua 
partir d'une seule touche. 

Aux Etats-Unis, on parle de plus en plus des macros 
pour Appleworks et les revues de programmation 
leur consacrent de plus en plus de place. Nos 
confreres americains, qui connaissent bien 
Autoworks, KeyPlayer et SuperMacroWorks, ont 
accorde la premiere place a ce dernier. Fait 
interessant, c est aussi le seul qui soit compatible 
avec la version franchise 1 .4 d'AppleWorks. 

• Us plus de SuperMacroWorks 

D'abord et surtout, mais cela reste facultatif, 



I'usage de la souris. Par ailleurs un ensemble 
coherent de nouvelles commandes, utilisant toutes 
les ressources de POMME OUVERTE, POMME 
FERMEE et CONTROLE. 

Elles vous permettent par exemple d'imprimer 
Theure et la date, de lister directement les fichiers 
dans une base de donnees, etc. 

D'autre part, des fonctions logiques permettent, en 
les incorporant d des macros, de construire des 
macro-programmes. Mteux encore, vous pourrez, 
avec SuperMacroWorks, creer des macros sans 
quitter AppleWorks. Dequoi rever ! 



Adaptation en francais et auceur du manuel 
francais : 

Dimitri Geystor : "Lo Chenaz", Saint-Blaise 
74350 CRUSEILLES 
Tel. : 50.44.21.70 

vous pouvez tf ores et dejd passer commande 
aupres de \ 

Societe Brejaux : 29 rue de Montribfoud 
69009 LYON 
Tel. : 78.36.52.69 

S.I.G.E.A. : 21 avenue des Hirondelles 
74000 ANNECY 
Tel. ; 50.57.02.80 

Si vous possedez le logiciel americain, et que vous 
souhaitiez vous procurer le manuel francais + la 
disquette d applications, adressez un cheque de 50 F 
a Dimitri Geystor, en joignont une enveloppe format 
A. 5 affranchie a votre adresse, une disquette vierge 
format 5*1/4, et obligatoirement le coin du dos de la 
couverture du manuel anglais qui porle la mention 
"Proof of purchase" (preuve d'achal). ■ 
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CRIBOUILLE PARLANT 



line serie de realisations frangaises pour les handicapes visuels 



C'esf la France qui a rec,u, cette annee, la 
conference internationale de I'Union 
Europeenne des Aveugles (au Palais de 
I'U.N.E.S.C.O., du 17 au 19 septembre). 
A cette occasion, des postes de travail in- 
formatiques pour handicapes visuels etaient 
reunis et presentes aux visiteurs. Une serie de 
realisations met, en effet, notre pays en bonne 
position dans ce domaine. 

Les cartes franchises Valentine et Sonolect, 
couramment utilisees pour sonoriser des bases 
de donnees, tableurs, jeux etc., viennent de 
recevoir deux applications majeures, qui ont 
ete presentees pour la premiere fois a la 
conference internationale de I'Union Euro- 
peenne des Aveugles ; 

MI NITEL PARLANT 

Valentine et Sonolect rendent parlant 
I'Appletel (de la societe franchise Hello). Des 
lors, les deficients visuels peuvent consulter 
I'annuaire electronique et les bases de 
donnees du minitel, executer les locations, 
achats, appels de taxis, ordres bancaires et 
outres operations qu'il permet. 



CR I BO II I HE PARLANT 

Le tres puissant traitement de texte francais 
Gribouille a ete adapte par son auteur 
Madeleine HODE, et par Philippe LEON, auteur 
de Sonolect, a la synthese vocale. Les non- 
voyants ont maintenant pleinement acces a un 
logiciel professionnel dont chaque detail a ete 
mis au point pour s adapter a leur mode de 
perception et repondre a leurs besoins. lis 
peuvent ainsi retire et corriger les textes qu'ils 
dactylographient, et en controler la mise en 
page avant impression. En outre, Gribouille 
comporte des commandes de calcul qui le 
transforment, pour les handicapes visuels, en 
une "calculette parlante". 

II faudrait plusieurs pages de Tremplin Micro 
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pour enumerer les difficuftes rencontrees par 
la dynamique Madeleine HODE et par l emi- 
nent Philippe LEON lors de ['adaptation de 
Gribouille, Que d'efforts ! Mais le resultatest 
Id, extraordinaire, Ce n'est pas trahir un secret 
en disant qu'il a ete unanimement opprecie par 
celles et ceux qui ont pu le tester. 

Peut-etre aurons-nous un jour I'occasion de 
revenir sur ce Gribouille parlant, tres bel 
exemple de la reussite du genie logiciel frangais. 



POUR EN 5A VOIR PLUS: 

Un peu de technique : Valentine et Sonolect. 

Valentine, carte de synthese vocale (societe 
FERAAA, 14, rue de I'Abbe Carton, 75014 PARIS) et 
Sonolect (editeur vocal realise par un etudiant 
marseillais aveugle, Monsieur Philippe Leon) se 
conjuguent pour sonoriser les logiciels : 
I'utilisateur entend, dans une prononciation 
francaise correcte, ce qui s'inscrit □ I'ecran. II peut 
ainsi lire ce qu'il tape lui-meme ou clavier, aussi 
bien que les menus et messages du logiciel. 

Correspondant permanent : 

Association Valentin Hauy pour le bien des 
aveugles 

5 rue Duroc, 75007 PARIS 
Tel. : (16-1) 47.34.07.90. 

Cette association, par son Centre de Formation et 

de Readaptation Professionnelle, organise depuis 

plusieurs annees des cours professionnels et 

notamment en informatique. 

Elle commercialise la carte Sonolect et la version 

sonorisee du logiciel Gribouille. Pour I'ensemble ' 

1770 F hors taxe, soit 2100 F T.T.C. 

La carte Valentine peut etre achetee soit a la 

societe FERMA soit a I'association Valentin Hauy : 

2 530 F hors taxe, soit 3000 F T.T.C. 

(Tel. : (16-1) 47.34,07.90. Welle LANO ou M. JACQUIN) 

On peut tester logiciel et carte sur rendez-vous, a : 

Club Micro-Son 

3, rueBerthe 92370 CHAVILLE 

Tel. : (16-1)47.50.16.49 ■ 

mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 
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IES CARRES MAGIQUES 

de Jean perrot hh^hh 

Dons le n°14 de Tremplin Micro a paru im programme 
appete CARRES MAGIQUES. II permet d'obtenir des 
carres magiques, quel que soil leur ordre, mais il ne 
donne aucune explication concernant les m^thodes qui 
ont permis 1'elaboration du logiciel. Aussi Jean PERROT 
propose~t-il aux lecteurs de Tremplin Micro qui 
seraient interesses, de leur faire parvenir une copie de 
sa disquette personnelle. 

Elle contient 10 programmes : 

■ 2 de presentation : MENU et CAR.HISTO, 

t 4 de methodes : CAR. IMP, CAR.PAIR2, CAR.PAIR4, 
CAR. PROD. 

■ Le programme principal : CARRES. MAG, 

• 3 programmes (en langage machine) qui 
permettent I'ecriture en page HGR ou le transfert 
d'un ecran en memoire auxiliaire a savoir : 
TEXT/HGR, TRANS80.1M, FAIRE. Fl 

Envoi effectue contre un cheque de 60 F -f 10 F de 
participation aux frois d'envoi. 

J«an PERROT 27 rue du Clos BEAUMOIS 14000 CAEN. 



VERSION SOFT A APPLE EXPO 



Version Soft, editeur leader sur Apple, a presente 
plusieurs nouveautes pour I'Apple ll/GS lors de la 
derniere edition d'APPLE EXPO : 

• VS/File, un logiciel de gest'ton de fichier qui 
recupere les fichiers issus de CLICKWORKS et 
d'APPLEWORKS. 

• VS Com, un logiciel de communication qui pourra 
etre couple avec la carte modem Appel-Tell-GS de 
Hello Informatique, produit pour lequel Version 
Soft vient de signer un accord de distribution 
exclusif. 

• Grapholic, une disquette de 300 motifs et dessins 
pouvant etre utilises avec les logiciels GS/Paint, 
VS/Draw et GS/Write nouvelle version. 

• Movie Studio, logiciel permettont de realiser des 
films sonorises. 

Rappelons que Version Soft, avec plus de 280 000 
logiciels vendus dans le monde dont pres de 100000 
aux Etats-Unis, notamment par le biais d'Activision, 
est aujourd'hui le numero 1 mondial du logiciel sur 
Apple ll/GS. 

Nous reviendrons, dans ces colonnes, sur les 
logiciels cites plus haut. ■ 

lllllllfllfllll9lllf|||HMIMIIIIIIinillllHIII 
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UN SYSTEME EXPERT POUR LE 
PRIX D'UN JEU : 

PROELEC1 

Pour Apple lie 

Concu et realise par des profess eurs 
agreges, ce logiciel ouvert et inte- 
ractif permet la construction et 1'etu- 
de de circuits electriques en courant 
continu. A partir de la classe de se- 
conde. 

Prix : 290 F T.T.C. et port paye 

Comprenant : »2 disquettes 

# 1 notice de 9 pages 

• 1 suivi client 

Bon de commande a decouper et a 
envoy er a : 

Frederic GRUY 

35 rue du Pilat 
42400 SAINT- CHAMOND 
Tel. 77 31^74 93 

VeuiJIez m'adresser par retour du 
courrier le logiciel PROELEC 1 
pour Apple lie. 

NOM; . 

Pre-nom : . 

Adresse : 



Tel: 

Ci- joint mon reglement de 290 F 
par : 

□ cheque □ mandat 



APPRENTISSACE 

TURBO TUTOR 

pour le Macintosh 



Comment va votre Pascal ? 
Ah ! vous travoillez sur Apple 
//, Vous dites que la compila- 
tion vous fait bouillir dirnpa- 
tience ? Bien sur... je sais, 
mais il faut vous offrir un GS r 
ce sera dejd plus rapide ! 
Mai, du Pascal, j'en fais sur 
Macintosh, et avec le TURBO 
de Borland. Cest quand 
meme autre chose. Vous vou- 



lez la verite ? par rapport a ce 
que je connaissais dejd, sur 
Apple He, c'est reellement 
extra, 

Ceci etant, j'ai eu entre les 
mains, pour un essai — il ne 
faut rien cacher a un lecteur 
de Tremplin Micro — , le 
TURBO PASCAL TUTOR de 
Borland. Toujours lui ! 
Je ne suis pas un fana de la 



langue de Shakespeare et le 
gros bouquin (pres de 700 
pages) qui accompagne la dis- 
quette est en anglais. Je n'ai 
done pas tire un grand profit 
de rhistorique (d'ailleurs 
court) du PASCAL, mais 
comme il y a toujours des 
exemples dans les manuels 
de la societe Borland, je ne 
m en tire pas trop mal. 

Celui-ci permet reellement, 
disquette a I'appui, a un pro- 
grammeur debutant de com- 
mencer a ecrire des program- 
mes en TURBO PASCAL 
Naturellement, le debutant 
devra d abord assimiler des 
notions aussi elemental res 
que les definitions et la termi- 
nologie de base, mais ^a ne 
devrait pas deteriorer ses 
neurones. 

Tout ce qui peut poser pro- 
bleme est passe en revue 
dans cet ouvrage et on peut 
dire qu'il s'agit effectivement 
d'un excellent guide du pro* 
grammeur. II traite avec pre- 
cision, mais en anglais, de la 
structure des programmes en 
TURBO PASCAL : procedures 
et fonctions, chames, poin- 
teurs, fichiers... tout y passe ! 

Un ban outil dapprentissage ! 

Clement reward 

GUY-HACHETTE 



Philippe KAHN 34 out, President Fondoteurde BORLAND INTERNATIONAL. 

Cet oncien professeur de mathematiques decide,en }%% de quitter I'educa- 
tion nafionale et les Alpes Maritimes. II s'envole a 30 ans pour la Californie 
pousse par sa passion de la micro- informotique, avec I'intenfion de devenir 
editeur de logiciels. 

Une competence acquise a I'age de 20 ans aupres de Niklaus Wirth, auteur 
du langage Pascal, lui permet de decouvrir une version tres puissante de 
Pascal, II la baptise Turbo Pascal, nouveau langage de programmation dix 
fais plus rapide que les autres compilateurs et qu'il veut vendre six a dix 
fois moins cher que les produits concurrents. Son produit exceptionnel en 
main, Philippe Kahn cherche a le commercioliser. II effectue des demarches 
aupres des "Venture-Capitalists" qui demeurent vaines. II decide entin de 
financer lui-meme son projet et, en mai 1983, fonde en moins de deux heu- 
res la societe americaine BORLAND INTERNATIONAL 6 Scotls Valley en 
Californie. Pour lancer son produty Philippe Kahn utilise deux vecteurs; la 
vente por correspondence e1 la publicity dans les revues specialisees. Le 
premier mois de vente rapporte 150000 dollars de chiffre d'affaires, 
200 000 le deuxieme mois. 
BORLAND INTERNATIONAL est lance. 

Sa creativite et sa facon de travailler font de Philippe KAHN un personnage 
peu conforme au modele traditionnel des managers americains. Son 
emploi du temps,extremement charge en tant que President d'une societe 
international, ne lempeche pas de se consacrer parfois a ses deux princi- 
paux loisirs : le saxophone et la voile. ■ 
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En reponse a de nombreuses lettres 



IPROBLEMES AVEC 
L'IMAGEWRITER If 

De nombreux utitisateurs de I'impri- 
mante IMW/f apprennent a leurs 
depens que fa grammaire franchise 
a change. En effet, il faut savoir que 
le pluriel d J un ruban s'ecrit desor- 
mais ' des problemes" et que par 
fois. il ne s'imprime pas, 

L'Echo des APPLE a deja signals 
quelques problemes avec le cote 
gauche des cartouches, pourtont 
purement "possif". Le cote droit, qui 
contient les elements mobiles, nous 
reserve d'autres surprises. Le SAV 
APPLE a redige une fiche qui note 
les different* modeles disponibles. 
Son meilleurchoix, PELIKAN, semble 
difficile a trouver chez les conces- 
sionnaires APPLE. II sera plus facile 
de se les procurer chez des fournis- 
seurs d'accessoires de bureau. 

Voici les importateurs de ces car- 
touches : 

• NOB LET, 178 rue du Temple, 
75003 PARIS 

Tel. : (16-1)42.77.11.34. 

• JACMO-FRANCI, Rubis 20, 1.1. 
06510 CARROS 

Tel. : 93.08.29.00. 

Je precise que chez ce dernier, le 
torif unitaire est de 29 F HT (par 
botte de 5 cartouches). 

Certoines cartouches forcent legere 
ment, ce qui pose des problemes au 
moteur de I'lMWff. J'ai tendance a 
penser que la cause reelle est un 
sous-dimensionnement du meca- 
nisme de i"imprimonte (un meme 
ruban qui freine I'lMWW passe par- 
faitement sur une DMP ou une 
IMW1}. APPLE precise dailleurs que 
les rubans qu'ils fournisseni actuel- 
lement aux concessionnaires sont 
des rubans IMW1 . 

Quel que soit le responsable, il y a 
un remede "aise". 

Divers modeles disponibles compor- 



lent, sous la moletfe d'entrai- 
nement, un coulisseau generate- 
ment gris cloir, maintenu par un 
ressort plat qui apporoTt sur la 
tranche inferieure de la cortouche. 
Ouvrez-la, detendez legerement 
le ressort et remettez tout en 
place. Vous aurez alors un entraT- 
nement facile et souple, 

II existe un modele de cartouche que 
je deconseille vraiment : celui sans 
coulisseau, sans molette striee, au 
tubulaire de gros diametre, sans 
meplat, aux engrenages a petites 
dents triangulaires. J'en ai essaye 
deux exemplaires avec des resultats 
identiques : deux blocages complets 
du ruban sans blocoge de rimpri- 
monte. Consequences ; une belle 
boutonniere dans chaque ruban et 3 
pages imprimees blanc sur blanc. 

Pour etre complet, precisons que le 
SA V fait etat de problemes lies a la 



nature de I'encrage de la plupart des 
rubans, Encore une fois, le meilleur 
choixserait PELIKAN. 

■ LES CLEFS POUR LE IIGS 

Nicole BREAUD-POULIQUEN a des 
problemes avec les clefs pour fe 
IICS. On y trouve souvent le (/} ou 
lieu du jej dans les commandes 
moniteur, mais aussi (') au lieu de 
("), ce qui reserve quelques surpri- 
ses aux utilisoteurs. Ainsi, I'exemple 
de recherche de chaine de la page 77 
fonctionne mieux lorsqu'il est 
redige ainsi : 

VCheck'c FF/00Q0.FFFFP. 
En utilisant le delimiteur ('), comme 
le fait I'ouvrage, on recherche la 
chome Check STOCKEE A L'ENVERS 
(cad: KcehC) que ! J on ne trouve 
evidemment pas. 

II s'agit bien entendu de coquilles et 
nor d'erreurs de I'auteur, 



L APPLE IICS ET LES CARTES D EXTENSION 

La situation de I'acquereur fran^ais d'un GS est differente de celle de 
son confrere ame>icain puisqu'APPLE France livre systematiquement la 
carte APPLE avec la machine, ce qui n est pas le cos aux ILS.A, De ce 
fait, en dehors de quelques cas precis, il n'y a pas lieu de se precipiter 
sur les offres des divers constructeurs independents. 
On voit opparaTtre de multiples cartes extension memoire avec ou sans 
batterie. II me semble preferable d'attendre. Pour la plupart, ces cartes 
ne sont rien d'autre que des RAMdisk (eventuellement plus ou moins 
permanents). El les ne tirent pas parti d'une caracterisiique du GS, a 
savoir la possibility de manipuler un ROMdisk de 500k et une extension 
de la boTte a outils de pres d'un demi mega. Avec un tel ROMdisk en 
place, il suffirait de demarrer sur lui pour mettre en place quasi instan- 
tanement son contenu (systeme dexploitation et finder par exemple) 
et oussi (surtout), mettre en service les outils presents dans la carte 
SANS avoir a effectuer une quelconque operation de chargement. 
exactement comme pour les outils deja presents sur la carte mere. 

Avec un peu de chance, la table des messages francais qui occupe 
actuellement une partie de la RAM ($020300... avec la disquette 
Systeme) pourrait etre installee elle aussi dans cette extension ROM. Il 
est inutile d'etre devin pour prevoir I'apparation, lorsque Systeme 
dexploitation et outils seront stabilises... (suite page 74) 
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(la quasi total ite des outils, ROM ou RAM a ete modifies au cour du l* r 
trimestre 87), d'une carte made in APPLEland qui dotera le GS d'une 
mise en route enfin rapide. 

Molgre la difference de situation initiale, je conseille a taut lecteur 
tente par ^acquisition d'une extension memoire, la lecture du numero 
d'Aout de Call APPLE. Le constructeur le plus prodigue en pages de 
public ite (et de ce fait, le plus connuj en ressort dote d'un magnifique 
"costard" dont je n'ai pu verifier le bien-fonde. 

Pendant que je parle des cartes extension, il me faut rappeler deux 
details. II n'est pas indispensable d'acheter les RAMs complementaires 
dans Je circuit commercial APPLE, mais il est necessaire de faire atten- 
tion au parametre "temps d'acces". Les puces soudees sur la carte 
APPLE sont des 15usec ( et il est deconseille de les accoupler a des puces 
I2usec (cette remarque s'adresse surtout aux jeunots, les anciens se 
souviennent que le non-respect de ce vieux principe leur avait cree 
quelques problemes lorsqu'ils ont parte leur APPLE II de 16 a 48K). 

Par ailleurs, seules les configurations 256, 512 et 1024 K sont garanties 
par APPLE. La configuration 768K est physiquement realisable mais elle 
semble mal digeree par le MEMORY MANAGER et vous ferait perdre le 
benefice de la garantie constructeur. 



MISE A JOUR 

DE VOS DISQUETTES 

Je repete que "votre" concession- 
naire a, entre autres obligations, 
celle de vous mettre a jour certai- 
nes disquettes (c'est bien entendu 
a vous den formuler poliment la 
demande). En ce qui concerne le 
GS, citons les disquettes : Mouse- 
Desk (9 decembre 87), GS.WRITE 
2.0, GS.PAINT 1,1, II s'agit de ver- 
sions ameliorees et ameliorates. 
L'impression est toujours desespe- 
rement lente et il y a encore quel- 
ques bugs. PATIENCE.,, je sais, 
c'est desagreable MAIS, chez 
APPLE comme chez VERSION. 
SOFT, on a le courage et I'honne- 
tete de reconnattre I 'existence de 
ces problemes. J'en connais 
d'autres dont les reactions sont a 
la limite de I'injure lorsqu'on leur 
signale des bugs. 



IPITIE POUR 
L UNITE CENTRALE1 

Je rappelle qu'il est DANGEREUX 
pour I'unite centrale de bran- 
ches debrancher un lecteur sur 
une machine sous tension. Pour 
deconnecter quoi que ce soit d'un 
GS, i! faut eteindre par l interrup- 
teur et ottendre environ ) minute, 

S'il s agit d'une operation interne, 
ij faut en outre toucher le boTtier 
alimentation pour decharger votre 
eventuelle electricite statique et 
seulement alors, effectuer I'opera- 
tion. Par ailleurs, le SAV APPLE a 
vu revenir des cartes meres qui ne 
presentaient aucune anomalie. II 
semble que le pre-diagnostic ef- 



fectue par les concessionnaires 
soit parfois errone (il est parfois 
inexistant). Pour ameliorer le 
fonctionnement du SAV, il est 
fortement conseille de donner a 
votre concessionnaire, lorsque 
c'est possible, le numero de tele- 
phone qui permettra, si neces- 
saire, au SAV de vous joindre 
pour vous demander un eventuel 
complement d'information qui 
servira parfois a corriger le 
pre-diagnostic et (ou) a configu- 
rer correctement votre equipe- 
ment en fonction du (des) logi- 
ciel(s) employe(s). 

Afin de vous eviter des pertes de 
temps, je vous fais part de mon 



experience. Lorsque votre GS refu- 
se de lire tout ou partie d'une dis- 
quette neuve, ce n'est pas neces- 
sairement la disquette ou le lecteur 
qui sont en cause. Le probleme 
peut provenir de lo carte mere. 
Essayez done, si cela vous arrive, 
de lire votre disquette a probleme 
sur un autre lecteur puis, sur une 
autre unite afin dlsoler la source 
reelle du phenomene. N'oubliez 
pos egalement I'existence dun 
autotest execute par Ctrl Option 
Pomme Reset qui permet de sovoir 
si tout vo bien au niveau de la carte 
mere. Bien entendu, si un connec- 
teur de liaison au monde exterieur 
est dessoude, ce test ne le verra 
pas. wan koenig 



OFFRE SPECIALE 

• CLINS D'OIIL AU 6502 DE L APPLE 

• ROUTINES LM POUR 65C02 ET 6502 

• NOUVEUES ROUTINES LM (65C02 et 6502) 



Profitez de la fin de I'ann£e pour 
vous attaquer serieusement au Ian- 
gage machine et completer votre 
collection de TREMPLIN MICRO 

Un numero gratuit pour tout exem- 
plaire des routines commande avant 
le 31 decembre 1987. . 
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AVISAUX LECTEURS 



Frederic SIGAL 



infos apple lies 



Chers lecteurs ! void les dernieres nouvelles 
concemant I' Apple IIGS : 

Le systems 3.1 serait bientot 
disponible, ainsi que le FINDER GS, tournant 
sous ProDOS 16 et Icon Editor, programme 
permettant de dessiner vos propres icones 
systeme. Le FINDER est un produit 
extraordinaire permettant des copies, des 
sauvegardes, ('organisation des disks, le 
lancement duplications, tout ceci uniquement 
avec lo souris. Cest d'une simplicity de- 
concertante. 

Un nouveou VGC et une nouvelle 
ROM contenant les derniers outils devraient 
etre proposes. 

• Langages de programmation : 

— Le Pascal GS est termine ; il existe sous 
deux versions : une version TML Pascal avec 
editeur, menus deroulants et souris 
(compilation en memoire prenant au 
maximum 10 secondes) et une version 
compatible APW, ORCA PASCAL, 

— I'Assembleur est disponible en version 
definitive, numero 1.0. 

— Le C , qui sera certainement le langage le 
plus puissant sur le GS, est disponible en 
version 1.0 B7. Je vous conseille de vous 
lancer dons I'apprentissage de ce longage 
simple. Dans les prochains numeros de 
TREMPUN MICRO, un Guide d'installation 
de I'APWCvous sera presente, ainsi que de 
nombreuses pages dapprentissage du 
langage C . Gogeons que ce sera le longage 
du futur. 

— Pour les inconditionnels du Basic, un Basic 
GS est disponible chez DDA, avec un 
editeur texte nettement plus performant. Ce 
Basic tourne sous ProDOS 16 et fait appel a 
toutes les fonctions des outils. II permet 



ainsi une programmation aisee, enfin 

puissante et rapide. 
Jai personnellement teste tous les logiciels 
precites ainsi que ceux de la liste qui suit. 

Tous ces programmes tournent, bien sur, sous 
ProDOS 16, en mode natif. Le dernier systeme est 
beaucoup plus rapide et tres f table. Le FINDER 
ressemble 6 celui disponible sur Macintosh (il a 
evidemment lo couleur en plus !). Les drivers 
d'imprlmantes ont ete reecrits. lis impriment trois 
fois plus vite en qualite brouillon et deux fois plus 
viteenqualitecourrier. 

J'espere que toutes ces informations feront plaisir 
aux utilisoteurs & APPLE IIGS. A tres bientot dons 
le monde de la Pomme, et sur GS ! 

Adresse de DDA : Technopole rue M, Faraday 

" 78180 MONTIGNY LE BRETONNEUX 
Tel. : (16-1)30.45.26.62. 



LISTE DES LOGICIELS 



UTILITAIRES : 
Sous Dos 3 J 

UNIDOS . utilisation des disquettes 3'5 sous Dos 3.3. 

UNIMATE idem. 

Sous ProDOS 8 

BEAGLE BROS COMPILER: compilateur Basic 
Applesoft. 

BIG.U : utilitaires de patch pour ProDOS ; patchs 
de I 1 Applesoft. 

PRO BYTER : utilitaires sous ProDOS. Indis- 
pensable ! 

DIVERSY-COPY : copieur disks 3'5 tres rapide. 
Copy 11+7.4 : copieur disks 3'5 et 5'25. 
Sauvegarde, recuperation fichiers, transfert Dos 
3.3,'ProDOS... 

BAGS OF TRICKS 2 : reparation de disquettes 3'5 
et 5 25 r recuperation de fichiers ecrases. isunepa^Ti} 
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DIVERSY-KEY, DIVERSY-CACHE : accelerotion 
Boot, tres utile. 

SOFTSWITCH : switcher entre applications (3 
applications en meme temps). 

Sous ProDOS 16 

MOUSE-DESK 2.0 : le mouse desk bien connu. 

* (FINDER 1.0: le dernier finder Apple. 
Absolument indispensable ! 

* ICON EDITOR : fabrication d'icdnes pour le 
FINDER), bientot disponibles. 

MUSIQUE : 

MUSIC CONSTRUCTION SET : creez vos propres 
musiques. 

MUSIQUE STUDIO : idem mais plus puissant, 

reconncnt I 'interface MIDI. 

INSTANT MUSIC : logiciel musical. 

CRISTAL (+ carte) : digitalisation sonore + 

parole (a venir). 

TRAITEMENTS DE TEXTE S 

GRAPHIC WRITER : tres bien, avec possibilites 
d insertion d'images. 

MULTISCR1BE : tres bon traitement de texte (en 
anglais). 

WORD-PERFECT (+ verification orthographe + 
dictionnaire). 

GRIBOUtLLE (ProDOS 8) : tres bien fait, 

BASES DE DONNEES — TABLEURS : 

APPLEWORKS 1 .4 (ProDOS 8) : traitement de 
texte -f tableur -f basededonnees. 
SOFTWOOD GSFILE : tres beau logiciel. 
NOTES & FILES : idem ! 

VISUALIZER : recuperation de fichiers Apple- 

works/graphismes. 

V.I. P. i tableur avec graphiques. 

VS/FILE ; gestion de fichiers. 

COMMUNICATION : 

VS, COM : le seul logiciel de communication en 
mode natif, tres beau ! 

DESSIN : 

816 PAINT : dessins en mode 320 ou 640. 

DELUXE-PAINT II : tres beau logiciel de dessin 

+ animations. 

TOP DRAW : dessins. 

USDRAW (architectes) : excellent logiciel 

(320 et 640) en mode natif. 



CLIP ART GALLERY : collection d'images. 
GRAPHOLIE : collection d'images pour 
GSWRITE & GSPAINT. 

LANCACES — PROGRAM MATION : 

BASIC GS : Basic en mode natif ; il n'est plus 

limite par la memoire. 

GSFORTH : Forth en mode natif. 

LOGO : langage graphique (disks 51 /A). 

TML PASCAL : tres bon logiciel pour pro 

grammer en Pascal. 

ORCA PASCAL : Pascal compatible environ- 
nement APW. 

APW 1.0 ASSEMBLEUR : le dernier assembleur 
65C816 disponible. 

APWC 1 .0 B7 : LE MEILLEUR LANGAGE. 
CROSS COMPILATEUR MEG AM AX C + 
PASSEPORT : transfer! de fichiers entre 
Macintosh et Apple IIGS. 

JEUX : 

COMPUTER MAD LIBS : creation de courtes 

histoires + musique -f paroles. 

COLOR MIND ; mastermind. 

SHANGAI : jeu de reflexion datant du Xl e siecte. 

BARD'S TALE : jeu d'aventures, tres beau. 

HACKER II ; sauvez les U.S.A. en pilotont un 

robot ! 

TASSTIMES IN TONETOWN : jeu d'aventures, 
vraiment bien aussi ! 

MEAN 18 : tres beau jeu de GOLF ( + disks 
avec differents parcours). 
BASKET-BALL ; comme son nom I'indique ! 
RENDEZ-VOUS EN U.R.S.S, : logiciel du 
domaine publique, jeu d'aventures. 
WORLDGAMES : Jeux olympiques. 

(VERSION SOFT) : 

GS/WRITE ! 

GS PAINT : creation graphique. 

EDUCATION : 

KID'S TIME II : programme destine a I'enseignement. 
A venir : 

CHAIRMAN : creation d'exposes et animations, 
PROGRAMME AUTEUR SUR APPLE IIGS: 
destine a I'enseignement, 
MELIES : creation de dessins animes sonores. 
Genial ! 

ATLAS 2000 : logiciel de geographic. 
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LI5TI DES LIVRES APPLE ilCS 



DOCUMENTATION APPLE : 8 classeurs comprenant 
plus de 4000 pages sur I' Apple ffGS (en anglais !). 
Indispensable a tout programmeur chevron ne ! 



(disponibfechezODA). 
CLASSEURS : 

• ROM TOOLS 

• RAM TOOLS 

• FIRMWARE 

• LANGUAGES 

• INTRODUCTION 

• UTLPRODOS 

• HARDWARE 



les outils en Rom, 
les outils charges en Ram, 
routes les cartes et moniteur. 
tout sur I'assembleuret leC . 
introduction, Shell. 



Tous ces volumes peuvent etre completes par plus de 
20 disquettes de demo comprenant les differents 
langages ( C et APW.A) ainsi que des exemples. 

APPLE IIGS PRODOS 16 REFERENCE : 

(Addison Wesley, editeur). Livre en anglais 
comprenant une disquette EXERCISER GS. Tout 
ce qui concerne la gestion des fichiers et des 
volumes sous ProDOS 16, 

THE APPLE IIGS TOOLBOX REVEALED : 

(Bantam Computer Books). Livre en anglais de 
Danny Goodman. Tout ce qui concerne les 
appels d la toolbox de I'Apple //GS. 



TECHNICAL INTRODUCTION TO THE APPLE IIGS i 

(Addison Wesley). Introduction a I'Apple HGS 
(en anglais). 

INSIDE APPLE IIGS ; 

(Sybex), Programmer en assembleur sur le GS. 
par Gary Bond (en anglais). 

APPLE IIGS FIRMWARE REFERENCE : 

(Addison Wesley). Tres utile. Presentation 
complete du GS et de la programmation en 
assembleur (livre en anglais). 

APPLE IIGS TECHNICAL REFERENCE: 

(Mac Graw Hill). Livre en anglais de Michel 
Fisher. INDISPENSABLE ! 

CLES POUR APPLE IIGS [2* edition) i 

(PSI). Livre en FRANfAIS de Nicole Breaud- 
Pouliquen. Resume de tous les appels a la 
Toolbox et presentation des differents 
langages, editeur et astuces pour I'Apple //GS. 

BO'tTEA OUTILS DEL' APPLE IIGS : 

(PSI). Livre en FRAN^AIS de Jean Pierre Curcio. 
Programmation en C sur I'Apple IIGS, illustre 
de tres nombreux exempies de program 
motion. 

LES 2 DERNIERS LIVRES CITES DOIVENT FAIRE PARTIE 
DE VOTRE BIBLIOTHEQUE. 

To Gw'di Scopsky with my best regards and deep thanks. 



L EDITION SUR MACINTOSH 

Par A. CHICHERY, J.-P. DRIEUX et A. JARLAUD. 



Think Tank, More, 
McWrite, Jazz, Word, 
Mac Auteur, Writer Plus 



De la redaction a I 'impression d'un texte, qu'il s'ogisse d'une lettre, d'une 
circulate, d'un rapport ou d'un livre. Macintosh se revele on outil precieux 
servi par des logiciels aussi varies quefficaces. 

Dans cet ouvrage, les auteurs etudient le mode d'utilisation de sept logiciels — 
traitements de textes plus ou moins evolues — permettant de traiter du texte 
et fonetionnant sur I'ordinateur Macintosh : Think Tank, More, McWrite, Jazz, 
Word, Mac Auteur, Writer Plus, 

lis presentent chacun d'entre eux de la facon la plus complete et la plus logtque 
possible, afin que le lecteur qui ne le connaissait pas jusque-la puisse tres 
rapidement I'utiliser. Le livre est organise en chapitres independents, chocun 
d'eux etont consacre a un seul logiciel ; le lecteur trouve done plus aisement ce 
qu'il cherche a propos d'un logiciel precis, puisque tout ce qui concerne celui-ci 
est regroupe dans un meme chapitre, 

Dons une derniere partie, sont etudies les transferts de texte entre logiciels, 
ce qui permet la comparaison de ces logiciels, J'etude des associations possible 
en vue de perfectionnement des applications et les interf adages eventuels 
pour faire passer des fichiers de l un 6 l autre. ■ 




L'EDITION 
SUR 
MACINTOSH 

Tliuik Tank. Myre McWnie. Jena 
Woid Mac Aufeur WiitctiPlus 



IHiihhI 



Coll. "Micro-informatique prctes* 
sionnelle" DUNOD, 1987, 208 pages, 
broche. 145FTTC. 
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PROGRAMMATION DU 65816 

par William Labi a k ts ybex * ) 

Si vous possedez un Apple IIG$ t vous programmerez 
tot ou tard son 65816, version 16 bits du 6502... et il 
est certain que le manuel de Williom Labiak 
deviendra alors votre livre de chevet. 

II vous apprendra tout ce qu'il faut connaTtre sur l or- 
ganisation et le jeu destructions du nouveou micro- 
processeur d'Apple. 

II vous enseignera l essentiel des techniques de pro- 
grammation. 

Je vous conseille de le lire de la premiere 6 lo 
derniere ligne et de toper vous-meme, sur le clavier 
de votre GS, les multiples exemples qui font de cet 
ouvrage un vroi monuel d'initiotion. 

De I'organisation interne du 65816 jusqu'au traite- 
ment des structures de donnees complexes, en pas- 
sant par les modes operation 8 et 16 bits, les techni- 
ques d emulation du 6502, les techniques d'adressage 
et la gestion des entrees/sorties, vous sourez (pres- 
que) tout sur la bete ! 

Attention ! il n'est aucunement question, dans ce 
livre, de I'Apple IIGS, mais seulement du micropro- 
cesseur dont it est dote. Ne vous attendez done pas a 
y trouver des routines vous permettant de program- 
mer LE GS en particulier. II s'agit d'un ouvrage de 
base... mais tout a fait indispensable. nestor 

• SYBEX - 6-8 impasse du Cure — 75018 PARIS (4&0 pages 248 F TTC) 




L'auteur est titulaire d un diplome d'inge- 
nierie de I'Universite de {'Illinois. II participe 
au developpemeni de reseaux informati- 
ques utilises pour le controle industriel et 
les applications scientif iques. 
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DOCUMENTATION GS 



A la demande d'APPLE France, D.D.A. met a la 
disposition des utilisateurs la documentation 
developpeurs relative d cette machine. II ne 
s'agit en aucun cas de logiciels, et surtout pas de 
notices grand-public. Ces documents, tres utiles, 
sont en langue anglaise et sont tout, sauf agrea- 
bles a monipuler. 



Documents papier : 

vol 1 ROM tools 300 F TTC 

vol 2 RAM tools 320 F TTC 

vol 3 Firmware 300 F TTC 

vol 4 Hardware 300 F TTC 

vol 5 APW (shell, A et C) 520 F TTC 

vol 6 65816, introduction 490 F TTC 

vol 7 ProDOS , 380 F TTC 



vol 8 Peripheriques 230 F TTC 

Oisquettes IP 1/2 : 

APW 144 F TTC 

APW A etC . 144 F TTC 

Samples 

Systemes + outils , . . 108 F TTC 

Utilitaires 144 F TTC 

Basic GS (interprets) 

notice + disquette 386 F TTC 



APPLE indique volontiers que, pour utiliser les 
outils de developpement, la configuration mini- 
male comporte deux lecteurs 3P 1 ; 2 et une carte 
extension equipee de 1 megaoctet de RAM. Avec 
cet equipement, on se sentira tres vite a I'etroit. 
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Dans ce numero 



HV 



PAVES <p°9 p Ul 
ALEATOIRES 



Nous nous sommes pfontes, sur 
le fie et sur le GS avec la rou- 
tine SFC2F (qui fonctionne sur 
notre vieil Apple Ik). Rempla- 
cez done Iq ligne de data par 
ces quelques octets : 



0300- 


20 F5 Ed 


JSR 


IE6F5 


0303- 


to 


TXA 




0304- 


20 CI FB 


JSR 


IFBC1 


0307- 


20 F5 E6 


JSR 


IE6F5 


030A- 


to 


TXA 




030B- 


IB 


CLC 




030C- 


A5 28 


ADC 


$28 


030E- 


85 28 


STA 


128 


0310- 


A9 20 


LDA 


£*20 


0312- 


n 28 


STA 


<*2B) ,Y 


0314- 


AD 


RTS 





CLASSEMENT (p 19) 

Tel que le programme se pre- 
sente, la simple presence dun 
malheureux controle dons un 
mot fausse evidemment le clas- 
sement. C'est ce qui s'est produit 
ici... d'ou necessite de soigner (a 
saisied une listedemots ! 



line nouvelle imprimante Apple : 

L'lmagewriter LQ 



On la dit capable de se mesurer a la LaserWriter... et c'est evidemment 
exagere. Cela revient a comparer un Apple lie a un Macintosh. 
Reste que c'est une imprimonte prometteuse, un haut de gamme* Sa tete 
d'impression comporte 27 aiguilles, ce qui lui permet de nous off rir une 
definition maximale de 216 points par pouce... contre 300 pour la Laser. 
Ses vitesses d'impression sont variables, suivant la quolite demondee : 

• LQ (Letter Quality) : 115 cps 6 216 points par pouce (impression 
proportionnelle reellemenl soignee), 

• NLQ (Near Letter Quality) : 140 cps a 144 pts par pouce (impression 
proportionnelle tres acceptable). 

• DRAFT : 250 caracteres-seconde a 10 caracteres par pouce (co suffit 
pour un I i stage). 

Naturellement, I'lmageWriter LQ est compatible avec tous les MAC et 
avec les Apple HGS et Ik. 

Elle accepte tous les types de papier (un chargeur feuille a feuilie est 
prevu en option). Elle utilise des rubans de type continu (en noir ou en 
quatre couleurs) et ceux-ci sont vendus pour quatre millions de 
caracteres. Enfin une bonne imprimante, comparable (soyons 
raisonnobles), sur le plan de la quolite d'impression, a une machine a 
marguerite... avec la rapidite en plus, entre autres avantoges. 
Disponibilite a la fin de cette annee a un prix sans doute voisin de 12 000 F 
(nan fixe actuellement). nestor 

LOCIQUE ELEMENTAIRE (N°16 page 34) Une ligne de ce programme a 
ete omputee lors de la mise en page. Nous vous la restituons... complete : 



2690 If AS(L,1> = AK],1) AND Ata,2) = A*<I,2> AND A*(L,3) < 
) AND At(L,4> = Af(l,4) AND At(L,5) - AIM ,5) IHBi 2740 



A$<I,3 



• ASPECTS A VANCES DU LANG A GE C (Ron PERSON) 

Cet ouvrage (traduit par Dimitri Stoquart) s'adresse a des program- 
meurs connaissont dejd les bases du langage C , mois desirant le 
maitriser pour en tirer la quintessence. 

Apres une premiere partie consacree aux principaux aspects de la 
programmation ovancee enC , on examine de facon methodique 
les techniques relatives aux listes chaTnees et aux arborescences. 
La derniere partie du livre troite des applications de generation de 
graphiques, de la creation de menus et de la construction d'interfa* 
ces. Plus de 300 pages agreablement presentees sous une reliure 
souple tres pratique, mais — soulignons le — pres de 100 pages 
dediees au programme source du systeme de segmentation pre- 
sents au chaptire 7 ; "Les graphismes d'application", puis, dans une 
autre annexe, le source des graphismes de I'lBM PC. 
D une maniere generale, on peut dire que ce bouquin fourmille d'exem- 
ples, Tres bonne edition a laquelle il ne manque qu'une disquette. 

fnterEditions, 87 avenue du Maine — 75014 PARIS. 



ASPECTS AVANCES 

DU LANGAGE C 
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Bulletin de commande et d'abonnement 

A retoumer b : T REM PUN MICRO — Sertille — 861 00 CHATELLERAULT 



Norn Prenom 

Adresse complete 

Code postal I I 1 1 I I Ville 



t£S DtSQUintS FOHCTtONNENT SOUS DOS FT ProDOS (6 condition de pcasMer un* vvriKm Appla dec* SYS TEM£ D CXPLQtTA TIONt 



QUANTITE 


DESIGNATION 


pmi UNITA1RE 


TOTAL 




Abonnement ci 6 numeros (un an) : FRANCE 

b partlr du num4ra : 


190 F 






Abonnement a 6 disquettes (un on) : FRANCE 

ci partlr du numttro i 


600 F 






MINIE 

LE BUREAU DE AAINIE 

LES SOURCES DU BUREAU _ 


Logiciets 

de Claude AUBRY 


ISO F 




1 50 F 




50 F 






UVRE : APPLE // PRODOS, GUIDE DU PROGRAMMEUR APPLESOFT 


120 F 






LI V HE ■ L C. OJV^ i U ■ r*v 


120 F 






LIVRE + DISQUETTE : CLINS D'CEIL AU 6502 


160 F 






UVRE + DISQUETTE : ROUTINES LM POUR 65C02 ET 6502 


ieo f 






UVRE + DISQUETTE : NOUVELLES ROUTINES POUR LE 65C02 


160 F 




Pamtkw ie IS dtctmbre. 


LIVRE + DISQUETTE : PROGRAMMES LM 65C02 & 65C816 


ISO F 




lusqu'au 31 de< 


:embre 1987, chaque volume commands donne droit a un numero CI 
Cochez le ou le*. numeros choisis ll A 1 6) en bas de page 


IATUIT de TREMPLIN MICRO 




N°17 DISQUETTE Yvon KCENIG seul<? 


SO F 






DISQUETTE N°17 + DISQUETTE Yvan KCENIG 


105 F 






DISQUETTE DE JEUX WAR 


20 F 






DISQUETTE -INDEX (N°l 6 12) 


30 F 






SIGNATURE (CHECK-LIST) 


30 F 






RELIURE ECRIN 


40 F 






DISQUETTE DE TREMPLIN MICRO ; * f«e>< »c, &s) 

□ N°l nN°4 DN°7 □N°10 □N°13 LJN°16 
DN°2 □N°5 UN°8 n N°ll □ N°14 Q N°17 

□ N°3 dN°6 □ N°9 □ N°12 H N°15 


105 F 






NUMEROS DE □ N*l □ N s 3 □ N*3 □ N*4 □ N B 5 □ N n 6 
TREMPLIN MICRO ! 1 □ N fl 7 Dm □ N°l □ N»10 □ N°ll □ N°I2 
□ N 8 13 Dtm DN fl 15 □ N*16 □ N*17 


30 F 




33 F 





* Cachoz la (ou lot) ca9*{s) dm voir* ehoix. 

M*rci de libeller voire reg lenient 6 I'ardre 
de TREMPLIN MICRO / Editions J1BENA. 



Participation aux frais d'envoi (gratult pour las abonnes) 
Envoi en paquet-poste rocommonde 6 partir de 400 F 
Numero d'a'bonne- ou de client : Total a payer 



10F 



Mode de reglement chotsi : 
U Cheque 

□ Mandar-lettre 

□ Carte Bleue (complin c»-conlre) 




N° de votre Carle Bleue 

Date d'expiration I L 

Moment A debitor 



JL 



L_L 



_L_L 



Signature! (abligatoirel 



80 



GUY-HACHETTE 




critique mois, 
le meilleur 
de la 

technique 
et de la 
pratique „ 
photo ! ft 




Chez votre 
morchand de journaux ! 



